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(54) Method and apparatus for finding and selecting a desired data item from a large schedule 
of data items using a TV set and a controller similar to a TV-remote-control 



(57) An apparatus and method for presenting a 
viewer with an overall representation of the present 
number of entertainment programs available for selec- 
tion given one week of program schedule data for 300 
or more channels and one or more filtering criteria to 
limit the number of items represented in the overall rep- 
resentation. Sequentially applied filters will filter the 
group of program schedule data items that has at least 
100 : 000 half hour time slots offered by 300 channels 
each week into a smaller subgroup where individual 



consideration of each item of the subgroup can be made 
in a reasonable time. A set top box drives the display of 
overall representations or results of filtering criteria on 
a commercial TV set. Once a reasonable sized sub- 
group is obtained, other displays provide specific infor- 
mation of the program offerings of the subgroup. Selec- 
tion of the filtering criteria and selection from within a 
subgroup is interactively made by a viewer through the 
use of a controller that looks and operates very much 
like a TV remote control. This makes the interaction fa- 
miliar, easy and predictable 
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D script) n 
Technical Fl Id 

The invention concerns a method and apparatus for subjecting a large schedule of data items having multiple 
attributes to consecutive selection criteria in order to reduce the number of individual programs to a manageable group 
which can be visually searched for a desired data item having a selected subset of the attributes, and more particularly 
to an apparatus and method which use an interactive control having directional buttons and a select button that are 
used in conjunction with an interactive display viewed on a normal television set to select the desired data item. 

Description of the Prior Art 



Presently there are known methods for reducing a large quantity of data into a manageable set of data which can 
be visually searched for a desired item by a decision maker. One example of such a large quantity of data is a directory 
'5 of a fixed drive of a computer system. Methods implemented through interactive graphical user interfaces for personal 
computers and workstations display and reduce disk drive directories to root directory displays which typically show 
root level files and one or more branch subdirectories for the user's selection. Upon selection of a subdirectory, usually 
by a mouse, the display typically shifts showing files of the selected subdirectory and sub-subdirectories for further 
selection. The subdirectory display is often too big to fit on the screen, so interactive scroll bars are typically provided 
so the display may be controlled by a mouse Using the mouse and the scroll bars, a user may work down the directory 
tree structure until the desired file is found. Such graphical user interfaces are common for computers and monitors 
where visual definition is typically at least 640 x 480 pixels for each display. Such techniques might be used in homes 
to access databases of useful information, such as airline schedules, television programming schedules and movie- 
on-demand catalogues. Unfortunately, each home does not have a computer or work station with 640x480 pixel defi- 
es nition which could take advantage of such existing databases. Further, the NTSC television set which almost every 
home has in its living room has relatively low viewing definition compared to 640 x 480 pixels or more per screen 
definition of computer monitors. Moreover, the typical home television set is not connected to a mouse, which is not 
an appropriate pointing device for the living room, rather most television sets have controls on control panels and/or 
on a remote controls. If just a fraction of these home television sets were used to find and select airline ticket reserva- 
30 tions, programs to watch on 300 hundred or more channel cable television services, or pay-per-view movies from a 
vast collection, the profitability of the service providers and the satisfaction of the users would both be improved. The 
300 plus channels mentioned, may use any type of transmission scheme that will deliver information via a cable or 
wireless path and includes but is not limited to time division multiplexed channels, frequency division multiplexed chan- 
nels and packet data multiplexed channels. 
35 One known approach for the TV programming schedule is to display the presently showing programs along with 

the next subsequent programs for the next hour or so, on what is referred to as a preview channel. Because this is 
more information than can be legibly displayed on one television screen at once, the preview channel display often 
scrolls through all the channel offering for the present time and the near future. For a sixty channel system, one complete 
scrolling takes about three minutes. At such a rate, a one hundred channel cable service would take five minutes and 
the future three hundred plus channel cable services would take 15 minutes. Needless to say, three minutes is a long 
time, but acceptable because breaks between programs are about that long. Five and fifteen minutes time periods 
though represent a substantial portion of a 30 minute program and are simply too long to expect a TV viewer to wait. 
The alternatives of speeding up the scrolling rate or using smaller size letters for descriptions are not practical either 
because either of these actions reduces the ability of the viewer to read and understand the schedule. Thus, there is 
4$ a need in the art for a method and apparatus that allows a viewer to quickly find and select a desired data item from 
a large schedule, in this case a TV program for viewing from a TV programming schedule for 300 plus channels over 
the ensuing hours or even days. There is a similar need for a method and apparatus, very similar to the TV program 
selector, for finding and selecting a movie to order from movies-on-demand, or an airline flight(s) for a trip. It would 
further be desirable to use a method similar to the TV program selector to find and select a file in storage assets 
50 accessible by the apparatus to be executed, updated or deleted as part of file maintenance. 

It is an object of the present invention to provide a view of a large schedule of data items and interactive selections 
of subgroups of the large schedule of data items in order to arrive at a screen display with sufficiently small number of 
items and sufficiently legible descriptions of each item to provide a viewer with an opportunity to make a reasoned 
selection therefrom. 

55 it is another object of this invention to provide a method for interactively selecting a data item from a large schedule 

of data items by means of sequentially applying different filtering criteria using an interactive control having an operation 
appropriate for use with a television set. 
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Summary f the Inv ntinn 



.. a^ r Z ? iec,s r be achieved by providin9 a me,hod *» * 

^ method includes a step TZSSS2!!1 SlST i hT ? ^ °' ^ ftem h3Vin9 mu,,i P' e attribu <^ The 
locally in a database forma tToZ to JZZifiSt fl w*™ ^ reCeiVed SChedU,e °' data items is s ">«* 
into a subgroup of the schedu^o, data Z2 1 e T 3nd re,neval Next ' the sch *<^ of data items is filtered 
resulting subgroup of the Thedu^ Sta Terns Slaved Hr?."*^ * '° inte ' aC,iVe ViSWer The 
selects a data item from the subgroup o, ^^^^2^^ ^ ^ ^ 

an ap^a^^ 

pointing means for specifying a "o^Z fnfhfdE " 3 h3Vin9 dlSptey meanS and in,erac,ive movat >.e 

apparatus includes a Mitral me^lntLlotSf ^ t maki " 9 3 Se,ec,ion al a s P ecified lo <*«™ This 
of a subgroup specifier byThe ^£3r£ t2S S?!K£S???. h ""J**** ^ '* feSp ° nsive «° selection 
« subgroup specifier; means for dS^ ,he Sub 9 rou P s P ecified * elected 

in the display means; and group Uem sefectio^ mTin^r , 9 , P * bel °° 9in9 ,0 at ,east a P° r,,on of the sub 9'oup 
in the display in response toTe poTnti^ *" 3 9f ° Up item by selec,in 9 ,he ^presentation thereof 

vJXZZZJXSZ ZZ'Tt^T*™* ° bjeC,S ^ be aChi6Ved b V P-iding a method for a 
* 300 indMdua. channel*™ pe^d ^^b^^^^ 0 *" *" »' ' eaSt 

a database format in order to expedite Hater son?™ IT i , ! d Pf ° 9ram SChedule da,a is stored local, y in 
subgroup of the program scheduH ^ ^ Pf09ram SCh6dUle data is fi,tered "*» a 

data is displayed for the viewer's inspect Z se SSJESZE IT ° SUt>9r ° UP °' ^ Pr ° 9fam SChedule 
^ schedule data for viewing on a TV Leen; or Za^S^S 

Brief Desc ription cf the Drawing T 

FIG. 2 is a simplified block diagram of the set top box. 
FIG. 3 is a pictorial of a controller as shown in FIG 1 
FIG. 4 is a pictorial of a top most selection interactive display. 
F G. 5 is a pictorial of a second level selection interactive display. 
FIG. 6 is a pictorial of a third level selection interactive display. 
FIG. 7 is a pictorial of a first level selection query display. 
FIG. 8 is a pictorial of a second level selection query display. 
FIG. 9 is a pictorial of another third level selection query display. 

FIG. 10 is a pfctoria. of a dispfcy showing a subgroup of programs meeting the Sports. All and On Now sorting 



criteria 



40 sorting - SPort, A„ and On Now 

RG s^T"', 0 ^^ similar to FIG 5 

reduced Z^SE 3 9* with very man'y ^ dT 'items shown in 

fig ]1 S I pic ! oria ! °! a ,hird ,evel se,ec,ion querv d, «p ta * s ™'*' » fig 9 

jtem F.G. 15 is a peer*, of a two-dimenstona, interactive grid d.splay tittered down to a manageabte number of data 
FIG. 16 is a pictorial of a first alphanumeric interactive display. 

Jf'n^t^r^s^^ — ■ 
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D tailed Descrlpti n 

Referring now to FIG. 1 . a television set (TV) 10 is connected to set top box (STB) 12 via interconnecting cable 
14 STB Z ll also connected to cable 16 which carries at least one cable program. The TV 10 
such as an NTSC. a high definition, or some other standard commercial type for home use. A controller 20 is linked 
to STB 1 2 preferably via a free space optical link 22 for controlling the operation of STB 1 2 ,n order to select a program 

herring now to FIG. 2. STB 12 will be described in greater detail. The STB 12 has a cable interlace 30 that 
selects and converts the incoming signals on cable 16. whether they are digital signals, analog signals or packet 
sMs to signals that are compatible with the TV 10. The cable interface 30 is connected by b,-d.rect.onal bus 32 to 

transmitted from CPU 34 to cable interface 30. If cable 16 is a bidirectional cable, some of the .nformat.on from CPU 
34 will be processed through cable interface 30 to cable 16. 

n action to bi-directional bus 32. CPU 34 is connected to ROM 38 and RAM 40 v.a a memory bu ,36. ROM 39 
contains an operating program that is executed by CPU 34 to provide most of the functionality ot the STB 1* RAM 
40 arn^na oSer things provides storage space for intermediate results of the operating program as executed by CPU 
£ £2X££?£v£r data that I received from cable 16 and filtered in response to the operating program 
L^e/inpute from controller 20 (shown in FIG. 1 ). If further storage is needed for data, brger RAM devices and/ 

such as disk drives, may be also connected bi-directional bus 32 (not shown). To receive 
vlewei r Input CPU* £i connected to controller interlace 44 via bus 42. and to provide feedback to the viewer, CPU 

34 is connected to and drives STB display 48 via bus 46 with channel related .nformat.on. ratali ic«a 

V£ 3 illustrates a preferred embodiment of the controller 20. Controller 20 is des.gned to look and operat hkea 
standard remote control of a TV or a video cassette recorder (VCR) Controller 20 has a numeric keypad 50 hav.ng 

has an up arrow 52. a down arrow 54. a right pointing arrow 56, a left pointing arrow 
58 a doubte up arrow 60 and a double down arrow 62. Controller 20 also has a se.ect (') b"«on 64. a ^ X) 
buiton 66 and a query (?) button 68. All interactions with the interface provided by the present invention are controlled 
2 these 1 9 buttons of the controller 20. Further, the result of actuating on. .of these buttons ■ £ 
be similar the results of a similar action of a standard TV or VCR remote control so its use w.ll be familiar, pred,ctable 

""SZZZ ZSSX***** components used in the interlace o, the present invent*, those used 
by the viewer to se.ect a desired data view or to apply a fitter to the information being displayed, sue as F G . * and 
those components used to actually display the information through which the viewer will progress in order to make a 
selectSTof a Specific item, such as FIG. 6. For example, the viewer might view the schedule of TV programs > for the 
ne* few hours (all channels), and filter the disp.ay to show on.y spons. basketbatt O^^^^'^SI 
fall into the first Cass. Once the display of all basketball shows for the next few hours ^^^^^.^ttS 
may progress through it reviewing a text or video digest of each program as setected by the controller 20 Select on 
2 a specific program would typically lead to an action such as videotaping the show or •^'^SllSZSSi 
viewer that the desired program is coming up. The navigation and selection sequences to find and select the desired 
orooram are examples of the use of the second class of graphical components. 

NoTe hat in both cases the viewer is required to navigate through multiple graphic displays m order tc , ultimately 
se.ectTdes"Vd program The interfaces are kept conceptual and visually distinct in the ^rt« «ooj^lh. 
present invention because they serve different purposes and the viewer is reminded o this by their appearance^ In 
Son. the information involved in the view selection components, i.e the first 

hierarchical menus short lists with complex substructure. In contrast, the data display, i.e., the second class compo 
nenTs must be abfe to handle large schedules and arrays of information, which are essentally flat data with simple 

SUbS Add C rttona..y there is a display component in most displays referred to as a -flame', which functions as a status 
disptey ThH amets used to give the viewer some context (what view am I displaying?), as well as a brief summary 
o the presently^elected item's characteristics (what item do I currently have se.ected ? ). Typically the .atter -«ouU I be 
« llame and useful information such as program start and stop times. The frame will be described further, 

late Referrinq now to FIGs 3 and 4, a top or beginning level display 400 of the viewer interface for use with controller 
20 as! t appeal Ton the viewer's TV 10 (shownln FIG. 1) during norma, operation. It is depicted as a We card menu 
™2 ! havfng ^a tab^abeled 'Begin'. On file card menu 402 are interactive buttons labe.ed Mov.es (or . £mand) 40* 
Set M vf 406 Opt. ne 40B. TV 410, TV Now 412, Lest TV 414. Sh pp.ng 416. and Lest Shop 418 when when 
elected by means of the controller 20 cause the next relevant display to be shown along w.th * ort n 9 
fitrSa to be pe^ormed on the data stored in RAM 40 (shown in FIG 2). When the file card menu 402 f.rst appears, 
an act" l area" vZe a selection may be made, is highlighted This active area may be moved by actuat.ng the arrow 
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buttons 52-56 and double arrow buttons 60 fi?^ , „ ™ 

.he .op of ^ indicates the desj9 «- 6 ° ; StSXS^S 402 iS SUrfOUnded b * a '-me 4 20 

S tl? * Se ' eC,,0n h made b V ^«ua.in 9 the a l« ^ S \ 1( 5 h " 9h,ed ° nce an area has been hig j 

over ay,ng of the d,splay 500 over the display 400 Al.Ln^h J 7 * G 5 a PP ear *. This appearance.is a looical 
display l8 appearing on the screen of the TV ?o tfsofc^n ul^ 400 * not visib,e «*«• any logically!* rtav S 
are canceled, i.e. by actuating LZnceuTZ^V^ ^ 39ain " a » of « h ° Sea l y over inq 

oHhT a r PreSenta,i0n ' u P andd °wn the reduced iJZZ£^£E£ *!*"» Wid-r ,han ,ne i,ems Splayed in 
SL^S"" 3rea 31009 ,h8 reduced ^presentation °' °" N ° W Sub 9 rou P in *ing.e s.eps. MotoJ 

the down arrows 62 move this selection window 604 r«r . ? S, ° na '' ei,neru P or down. The up arrows 60 and 
•™!^ -d down the reduced represen SZ tlTn 

SiZ^J?", 01 fedUCed f «P^«nta,ion 6?2 on suVot^ ^ 604 reP ' eSent 3 ,urther ^group 
'! d,Spla y ed in 'araer form in a grid display 606 ^2 P . S '* Pr0gram s "bgroup of the selection 
form anows the viewer to read the titles of L proems £ ° fedUCed re P rese ntation 602. Thista rgS 

shade cod.ng or color coding, of each item is retafn^Th^ * diSP ' ay 606 The visib,e <**«"9 i e a 

between the various types of programming oCd *" **" ^ " 9 " d 6 <* <° aid the viewer dm erenttS 

Within selection window 604 and QriddisDla V 6fifi a r»= . 

52 and the Down arrow 54. When Up arrow 52 or dZZ a rowtl ° ,her in res P° nse <° »» Up ar ow 

or below the selection window 604 and grid dfsDlav^ I T ,he ac,,ve area * 605 and 607 to move 'above 

IheTabie T ^ " '^^ W * hin ^ S^ST i*** ^ ,he SeteC,io " wind- up s'x or 

RAM andTI T^' "* *° ° Xact start and Sop^S i ^"ett^T^T' SUCh 35 ™ Channel <*« 
RAM 40 and displayed in the top of a frame 610 of disclTSo »7k T ° m ' he P ro 9 r ammin9 database stored in 
previewof either a short text description or a brief s ill 2 ^ 1 6 S ° ,eCt K) bu,,on 64 actuated at thi^me a 
previews are stored in RAM 40. A second m^T^^SS mf 0 [ 6P ' aCeS ,he 9 " d **** 606 - data to Zse 
arrows" ? ^ ™ 604 °' reduced ^SSSTSS ^t^^^ W ^^^^ h '^«5^ 
p evLs orl IT arr ° W 54 * S aCtUa,ed »* <°sp*TJwZ T^ T^** h 9fk< diSpte V 606 » "P 

Lmm mo ™" y b "" 0ns ' as "l" 9 ^ below „e a S " * 9msral ' 2 « "«P ™nu Tl^is 

"o, ^ 704 . „ vtewbu , lon 706 issj^r 
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button 712. An active area, shown on categories button 704 is moved by the arrow buttons 52-SBJhe function of he 
view button 706 has been discussed in regard to FIG. 6 and will not be rep ated here. Actuation of the help button 
702 causS a menu ot specific help functions to be displayed. Actuation of the begin button 708 causes 
menu to be displayed, i.e. it takes the viewer back to the beginning of the se.ect.on sequence. Actuat.cn of the favorites 
buuon 710 brings up a list of favorite programs for the present timeslot. which may e.ther be accumulated by the CPU 
32 L viewing data or may be entered by the viewer or viewers. Actuation of the viewer button 71* wh,ch causes a 
display to appear where a viewer may interactively enter his or her status as the principal vewet Th.s '"to'mat.on ,s 
used to determine, display a s.ate of favorite programs customized for each viewer. Actuate of the categor.es button 
704 causes a further display 800. which is shown in FIG. 8. to replace display 700 on the screen of TV 10 

Re err^g now to F.g's. 3. 8 and 9. display^ has numerous buttons 801 . 802. .803, 804. 805, 806 «7. 808 and 
809 corresponding to Favorite. Information. Entertainment. Movies, Sports. News. Children. Senes and Mo* ^catego- 
ries of programming. The buttons 801 -809 may be have an active area moved among them us.ng arrows 5 2-i or the 
numeric keypad may be used as a set of hot keys to move the active area to the desired category immediately The 
ZZ »SZSi are .L out in a 3x3 row and column arrangement just the same as the 1-9 keys o ^eypad 50 are 
a"ranqed Thus without numbering, intuitive hot key navigation is possible. For example to move the acuve area to 
ESSn tNrd column and tlL row. i.e. button 809, the key in the third column and the 

9 of keypad 50 is actuated. The button 809 unlike the other buttons wh,ch subsequently prov.de """^J"** 
gives J2L display of buttons for further category choices (not shown). M the actK,e area ,s 
805 as shown in FIG 8. and the select (' ) button 64 is actuated, the display shown m FIG. 9 would appear. FIG. 9 » 
Ranged wl elects buttons 901-909 in a 3x3 arrangement, simiter to that of F.G. 8. **^£*~?>^ 
bv arrows 52-58 or by hot key is available in FIG. 9. as in FIG. 8. Buttons 901 -909 correspond to Baseball Football, 
BaskLtS. Socce Wl. Hockey. Golf, Racing and Other respect^e.y. Except for All button 905 each of the buttons ,n 
SfSJS. narrower subgroup of the overall category of sports. Actuating All button 905 causes d.splay 1000. 
shown in FIG 10 to replace, i.e. logically overlay, display 900. 

Re erring' now °o F?G. 1 0. a fi.Sred display for TV programs, that are On Now. for 6.30 p.m. toca. fme^ as shown 
in FIG 10. that are Sports programs showing A.I categories in reduced represents 1002 .s ^^^'^ 
resentation 1 002 has so few entries that characteristics of the individual cards that were h.dden previously by the sheer 
number 7p rograms represented can now be discerned. For example, menu card 1003 representing ™J 
Week In the NBA is shorter on the left side than menu card 1004 representing the program Senior PGA Golf The 
T£ lor Serene is that the program This Week In the NBA starts a, 6:30 p^m 

PGA Golf started at an earlier time as designated by the double left po.nt.ng arrows before the title of Senior PGA 
Golf in seleSon window 1 006. Since This Week In the NBA and Senior PGA Goylf both end at the same time the 
right sLes of their reduced representations 1003 and 1004 end at the same location Movement or navigaUon of the 
active area 1005 along the reduced representation 1002 is by means of controller 20 the same as in FIG. 6 Each of 
fhe sfx ST. shown\n selection window 1006 has a respective rectangular region 1010-101 5 thereafter. The rectangular 
regS 010-1015 are shaded differently according to the type of sports program with which thev r are J"™-"- 
These different shades of gray, or different colors if the display is shown on a color TV, are a visual key to the type of 
that corresponds to each'of the six titles Actuating the eefect (/) button 64 of controller 20 causes display 106, 
Sow™ FIG. 11 which is a text preview of the program highlighted by the act^e area, to overlay se.ect.on area , 1 006_ 
As mentioned above, actuating the select </) button 64 at this point will cause CPU 34 to .nstruct cable interlace 30 

45 ZI^^JSZSSSJ-M^ shown in FIG. 12 and its filter selections will logically over lay 

Say SoO has numerous interacts buttons: On Now 1202, Coming Up 1204. Search 1206 Weekdays 208^ and 
Weekend 1210. Since the A.. Sports category has been selected previously if the acttve area of d«ptey 1200* n^ved 
to highlight the Coming Up button 1204 and the button 1204 is actuated, d.splay 1300, shown .n FIG. 13 w.ll appear 

so rdSytS. ^coordinate axes are shown which are respectK,e.y labeled with two at.nbutes o! I the of the 

selected subgroup of data items. The two attributes shown in display 1300 are channels and t.meslots for the next 24 
fimr s ktTs i e 1 2 ho urs coming up. Since the all sports category has been selected, each sports program showing on 
cToHhe io plus Channels Lhin the next 12 hours will be represented in display 1300. Each sports Program up- 
coming is represented by a rectangular 'card" located in the row corresponding to the channel carrying , the program 

55 and inme column(s) representing the timeslot(s) when it will be shown. Each 'card- is a color ^^^T 
sentation of the data item for its respective program. The viewer may move the act.ve area 1302 among the cards 
us^ng the up anVdown arrows 52. 54 and right and left arrows 56, 58 for movement vertical* and 
lively. As can be seen from display 1300, there are still too many data items in the subgroup to ,nd.v.dually consider 
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selection. For example, if the viewer wishes Tc ,S at ,ha ! h ° UrS ° f S ° re,neved b V On N w 

se.ec, something to record Ac ua^TuZ 9 ^"^ ^ ~« °' ^ — k h ° fder '° 

while watching a program causes the Slata vieTmenu °' 5 ° 

the menu-display hierarchy where tha lact L . ' 900 of F,G - 9l to a PPear at the point in 

towards the br Jdest Sa^w menu 4<S> of RG 4 an^f ** UatinQ "" <0) bUUOn 39ain ^ the view * r 
or subject matter categorfes ' ^ ™ y S, ° P at an * dis P ,a V in ^ to change time 

of letters containing the letter N usingTne uC ow 52 12 P f ° f at ,he ,8St 9r ° Up SSlec,ed) to ,he ° rou P 

- o, the .elect (✓) b Ln 64. This SSSZ^cSXZSZ Z£2££S? "Vno^l 

two letters, such as Z$S£Z by T Sin9 ' e j" 8 *"" 8 °* "° *<* 
as denoted by the double right pointing arrows bv NO To «SS u P ,nstances °' two letter string 

the line contain™ no o, i : ^ . _ ~ : '° !° m,nue search tor the active area is moved to 

b-lton 64. which Mu^toSTa^l B^S? " f J " Sin9 d0m a " ow 56 ana acu,a,i "9 me ••'«=• (') 

in display 2200 an<> aclualina the aaletl I A h„iT™ a^ „?. .^ , ^T g ° " ,ea K ,he " ne lal>elM NOVA 

2200 J! a ache^a « «S «^^^£EIS: SET " ^ * " 

and in the 8:00 p m column Th^ Sv S^^k'" '^'^ ^ in,ersec,ion °« ,h * Sunday row 
52 54 of keypad 50 H thlra la 22^ ™ VSd honzon,al| y b V arr °vvs 56. 58 and vertically by arrows 

shown b a Z |££ ^lin^s^ZZ^^Z °° ^f^' * 3 PartiCUter time ' that fac < is 

indicating the existence Xog^m V?S££^££& , ^ ^ " W ' ,h arrOWS 

access to 300 plus 'channels' of ^?i!S„^ k, .! ° ar63S POS,X, ° n * ,he Stack " the cab,e 16 has 

more than one channel a. "he T SOme Pr ° 9ramS ' SUCh as " "» wi » be °«^ d b V 
particu,aren,^ in ^S^SS^2^JKT^ ? f^ 6 ar63 '° " 

se,e ^:ro s b an sr r s? record a speci,ic m a « a ^i^tz!^ s :t:z: x: n ,his case ' ,he 

Re.err.ng back to RGs. 1 and 2, overall operation of the apparatus of the invention is deschbed Program schedule 
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data is supplied via the cable 1 6. The program schedule data is either transmitted periodically and the STB 1 2 receives 
this program schedule data and stores it in RAM 40. Alternatively, all or part of the program schedule data could be 
dynamically requested and received by STB 12, which stores it in RAM 40. Program data such as this is commercially 
available from TVData, Inc. and other similar concerns. The data or records of the program schedule data are in a pre- 
arranged format, such as Microsoft Access or some other similar database format, to facilitate rapid storage, sorting 
and retrieval by CPU 34. Each record of a TV program has its date of appearance, its time of appearance, its title, its 
channel and/or network, its categorizations, and a textual or visual preview (if any). A listing of a prototype program 
that sorts, displays and interactively responds to a viewer's input is shown in the CPU program listing given below. 
This listing is in Visual Basic programming language of Microsoft Corporation. 

The Visual Basic prototype program consists of a collection of forms, each form having its own set of event handlers. 
In this case, the only significant external events are button actuations because of the remote control interface. A frame 
form provides the background and information and status bars used by most of the individual displays. A rolodex form 
provides the menus. The other forms are mostly schedule or list displays of various kinds, including specialized varieties 
such as the alphanumeric selection list form. 

The control part of the program begins with a procedure which loads all forms and activates the frame and rolodex, 
i.e. the top display, to begin. Forms hand off control by setting a return code and hiding themselves, thereby activating 
the form directly beneath (usually the frame). Both the frame form and the rolodex form perform different actions de- 
pending on the value of the return code. The frame form's most common action is to activate another form, and much 
of the control flow of the application is handled by the frame form code. The rolodex form is used to display several 
different menu hierarchies, most importantly view selection and filter choice. 
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COMING form code „ = = s= 
: — s :orm displays a TV schedule fo- 
•--s version uses drawing ? severai "ours of one day 

5 « opposed :o cre« dS . f ° r tfce P«9»n, sh 4 p s 

a.-.d -pc-- t « h . 9 * conc *-oi shape for each " : ' 

' * 8hOOS - closest- nawgi^™' •"*• 

-p--on Explicit 

^:^Daca,3f ^sna^hoc^a ^ Period , 

-'-.-n ns.ocs As intenpr . ■ cays in display 

Dim -MaxStaticr. As In^er • toTa! Jl"" 10 " 8 in dis *W 

-re,. A* Xn-.e 9 er'. , L h o e i ;. i ; ld sn h ^ d co^^^f^ 
? 0 °: S S ; ! ld !?^ * space e S 3i S d 4r t 

Cc.st topc-AP - 4 ^pace btwr t-iml - rd end o£ Program 

?o? s ; e -?r T'for L;: 0 :^ , £irsc pro * r - ■>«*• 

20 Cor.sc .b.Height . 40 -he-ohc 0 V SlcCS 

Const MIN ProgWld . h . ne.gnc of day and time late" a (in 5 nn 

3-- « - a - minimum wih-k - s i« 500 scale) 

~ -™n^/ '~ of slot 

"" S=ar:?lwe ■"-« day and time of display 
25 Di- TS3egin As •«• 

Dim TSSnd L Lore • ■ time 3l °' 

2-tr. TScurrent As L~na 7* SC 

Diir. rowo^ser AS .^ ng eurrms time slot 

_ — cistance between .tops of, rows in the scheme 

30 AppiyFil ter <) 

i As Inceger ^ C ° lor is 
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As Ir.ceger 'counter 



l^t^r^ZZ^: " Stati -"' ^en 

colored - -Type: 6 - th ~ ««*-Xy shouid be a variabae or const. Boe 10 



Else 

^Station . Maxstation 
40 End :!-° r - Cield a "Category- 

For ; « : To 



Nex: 

-« r.-.d Sub 



: i ailDaCa( - , c '-eateSnapshot; 



S ?r--!'" 3eSe: d As String, 
re r.-r.s t.-ie navigation accord 



_ . I s ns — -eger 'boolean 
s ,. s .nteger 'stacion 
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Dir?. e ' FinishTS (end) 

Dir. TS As Long 'time-slot 
Dir. F As snapshot 
Dir* aDay As Integer 
Dim dist 'distance 

Dim best As Long, bestMark 'as database marker 

•set info about current place in database 

current * f iiterData ( currDay ) . 3ookmark 

Set F = f iiterData (currDay) 

s » F ( " Stat icr. " ) 

e =» F< -FinishTS" ) 

TS " TScurrent 

aDay = currDay 

success = False 

best = 9999 

If i s -Right' Then 

•check immediate right 

F.MoveNext 

If Not F . EOF Then 

TS 3 ?( "StartTS") 

•success = same station and starts right after current program 
success = (F( "Station" ) * s) And (TS <= e - 1! 
End If 

If Not success Then 
•check all to right for -closest" 
F.MoveFirst 
While Not F . EOF 

If F( -FinishTS- ) > e Then 

dist = VDistHoriz<s, e. F i "Station" > . F ( ■ StartTS • ) ) 
If dist <= best Then 
•save best so far 
best « dist 
success = True 
bestMark = F.Booknark 
End If 
End If 
F . MoveNext 

Wend 

If success Then 

'move to the best one 
F. Bookmark = bestMark 
TS * F ( "StartTS" ) 
End If 
End If 
Elself d = "Left- Then 

check immediate left 
F . MovePrevious 
If Not F . 30F Then 

•success = same station and finishes right before current program 
success = (F( "Station") » si And IF'." FinishTS" ) >» TS - 1) 
TS = "("StartTS" J 
End If 
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: * Nc - success Then 
'check all to left for -closesc" 
r .MoveFirst 
5 Ahile Not F.EO? 

H Fc;sc.r:TS-> . TSeurrer.-. Th.i, 

?j" i ;.™'^:„ r, " s " :i °"-'- '<■«—«■.. .. rsc,„„,, 

'keep best sp. far 
io best s disc 

success - True 
bestMark » F . Bookmark 
End If 
End if 
F.MoveNexc 

15 Wend 

If success Then 

'move cc best one 
F.3ookmark « bestMark 
Ts a F("SCar:?s-) 
2Q End If 

End If 
Elself c * -Down" Then 

^\iVr P .ZV^ bel ° W Closest- 
Testation-) > s Then 

Fi-Fxr^fcTS-M *"* " VD1 « v « t <»- "current, e. P(-st«ion-| 
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( "StartTS • ) . 

If dist < best Then 
best = dist 
success * True 

30 bestMark = F. Bookmark 

2nd If 
End If 
F . MoveNext 

Wend 

If success Then 

F .Bookmark » bestMark 
~S = F( "StartTS" ) 
End If 
Elself d = -up- Then 

iSS^iVET"" * bOVe CUrren: ° ne " -elc..f 
— F( "Station- ) < s Then 

r,-r,.,ishTS-n " VDi " v *"«-- TScurrer.t. e. F ( "Station" } , P( st.rtTS- , . 

It dist < best Then 
4S best = dist 

success e True 
bestMark * ?. Bookmark 
End If 
End If 

F . McvePrevious 

so Wend 

:f success Then 
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F. Bookmark * bestMark 
TS = FCStartTS") 
End If 
End If 

If success Then 

•update variables and display 

TScurrent = TS 

cur r Day = a Day 
10 DisplayProg 
Else 

'restore old position in databasse 
f ilterData (currDay! .Bookmark = current 
End If 
1S End Sub 

Sub DisplayProg ( } 

'set current program info in info box 

•highlight the appropriate program shape m the display 
Dim F As snapshot 
20 Din msg As String ' 

Set F = f ilterData (currDay) 



25 



'set highlight 
shpProg O) .Visible * False 
selector .Visible = False 

Position shpProg (0) , FCStarf), F ♦ " Finish" ) , F { ■ Station" ) 
CPlace 0, selector. shpProg 10) 
shpProg(O) .Visible = True 

selector -Visible = -True^- ----- - - _ 

'message for info box 

msg = StationString(F( "Station- ) ) i - - " & F'-Title") i - - 
msg msg & Format (F< "Start* ) , "h:mm AM / PM " ) 
msg = msg & " to - & Format ( F ( "Finish - ) , "h:mm AM / ?M " ) 
Setlnfo msg. Color ( F (colorField) Mod S) 
End Sub 

Sub Do Preview () 

■Construct an appropriate preview message and display it 
Dim msg As String 

msg = -Station: ■ & StationString { f ilterData (currDay »< "Station" ) ) 
msg = msg & Chr { 13 ) & "Title: - & fiiterDa::a<currDayH "Title" ) i Chr(13) 
msg = msg & CategoryString (( fi IterData i currDay >< "Type "• i , 
( f ilterData (currDay) i "Category" J ) ) 

msg » msg & Chr(13) k "Time: - & Format ( f ilterData ( currDay !■" Start - I . "mmn d.yy 
h:mm AM/PM" ) 

msg = msg i Chr(13) & " to - & Formal ( f ilterData J currDay ) (" Finish" > , *h:mm 

AM/PM" ) 

'show popup with preview message 
SO popup . Caption = msg 
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popup. Top * IblTime.;:) .Top ♦ 2 * ib'-ren h^„h. 
popup . L ft * 2 '.e<^> .Height 

popup. Width = slotsPerDay - 3 
popup. Visible = True 
inPreview = True 
Zr.s Sub 



£ub Deselect (J 
set selection ir.fo and go to TV 

userStart = f ! IterData t currDay) ( -Sta- - j 
retumCode « TOTV - 
Me. Hide 
End Sub 



Sub DrawProg (colorlndex. star- firish 
Oi.-n edge 

, ybtart - startTime ♦ currDay - 1 

" i start - daystart) • 48 
R » (finish - daystart l • 48 
"clip shapes off at day boundaries 
it w < o Then L « 0 

If * > slotsPerDay Then R * slotsPerDay 
Place m correct day, with SIM n ~- 1 
edge . (currDay . S£.SSiy W b * CW " n Pr ° 5ramS 

- = - * edge * sideGap 
* » R * edge - sideGap 

;set cop according to station *»*«>gW.dth 

rowOffset'f "ioo - X "«™bllE2h* £ " f av ° rit V st «i«ns • are not numbered 1. n 
e - sh P Slot(0).Top - topcS !*?stat"i^ P P "f ,0 ' / NStation, 

B - C - shp P ro g! a,.Heignt (StaC1 ° n " 11 * ""-Offset 

_ draw the box with the correct color 
arawwidch ■ 1 
KeFillStyle - 0 'solid 
-;I i ;, 1COl ? r -* Color < c «l«r;ndex Mod 9) 



box 
E.-.S Sub 



i-ine (L, t)-3tep<ft - L. B - t) , 3 



•the line command with argument B draws 



Sub F srr._Activate < ) 
make necessary changes to =- s -i, v , 

D~ i As integer ■eoune^ ' ^' " lnf ° a " d staCus »*« 
Static save.- ilter As String 

rf savefilter * filters (currOomain, Then sameFiite, 



ir » True 
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saveFilter ■ filters (currDomain > 

SecScacus -TV Coming Up: * * currril ter I TV) . greyCOLOR 

5 * popup" Caption « -Press 'category- to change the kind of crcgrar.s dipiayea.- 

popup . Visible * True 
r.ewUser = False 
End If 

•if net sar.e filter, redo display 
JO If Net sa-eFilter Then 

Setlnfo -Loading program information...-, GREY 
shpFrog <0) .Visible = False 
selector .Visible - False 
ApplyFilter 
1S MakeDisplay 
End If 

• in every case 
DisplayProg 

If inPreview Then DoPreview 
20 End Sub 

Sub Form.KeyDown {KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case Asc ( -Q- ) 

End 
Case B_BACK 

returnCode = BACK 
Me. Hide 

Case 3_HEL? ■ 

InvokeHelp 
Case B_ PREVIEW 

If inPreview Then 

popup .Visible * False 
inPreview * False 

Else 

inPreview * True 
End If 

Case B_RIGHT ^ . m% 

If Not f ilterData (currDay ) .EOF Then ChangeSe. t Rignt ) 

Case B_LEFT tmf 

If Not f ilterData (currDay ) .EOF Then ChangeSe. ( Let. ) 

Case B_UP 

If Not f ilterData (currDay) -EOF Then ChangeSel I "Up" I 
Case 3 _ DOWN 

If Not f ilterData (currDay: .ECF Then ChangeSel ("Down ) 

Case B — SELECT 

If Not f ilterData (currDay) .EOF Then SoSeiect 

Case B_ PAGEDOWN 
Case. 3_ PAGEUP 
Case 3_ FILTER 

returnCode » Filter 
Me. Hide 
Case 3_0 
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returr.Ccde « SHORTCUT 
K .Hide 
End Select 

' .r. ar.y case 
If inPreview Then 
DoPreview 

Else 

popup .Visible = False 
End If 

Sub 

Form_load < ) 

3irr. i As Integer 

Sim t * as time 

'set form colors and fonts 
Me. BackColor » iormCOLOR 
shpProg{ 0 ) .BackColor ■ BorderColor 
lblDay(O) .BackColor » backgroundCOLOR 
IbiAM . BackColor » backgroundCOLOR 
IblPM . BackColor » backgroundCOLOR 
selector . BorderColor « BorderColor 
dayLine(C) .BorderColor « divideColor 
lblTime(C) .ForeColor = slotCOLOR 
shpSloc (0) .BorderColor « slotCCLOR 
If displayMode = "TV- Then 

IblDay (0) . FontSize = small FONT 

IblTime { 0 ). FontSize * small FONT 

IblAM. FontSize « small FOOT 

IblPM . FontSize » small FONT 

popup . FontSize = mediumFONT 

Else 

IblDayiO ). FontSize * largeFONT 
IblTime ( 0 ). FontSize = largeFONT 
lblAM. FontSize = largeFONT 
IblPM. FontSize = largeFONT 
popup . FontSize » largeFONT 
End If 

'set scale and size objects 

SiseAForm Me. DispTop. DispHeight, DispLeft. DispWidth 
Me. Scale (0. 0>-<5CC, 500) 

SizeAControl lblDay(O). 0. lblHeight. 0. 500 

'note: the AM/ PM labels would be placed when time is filtered 
SizeAControl IblPM. 0, lblHeight. C, 30 
SizeAControl lblAM, 0, lblHeight. 500 - 30, 30 
SizeAControl IblTime (0), lblHeight. lblHeight, 0. 50 
SizeAControl shpSicciO). 2 * lblHeight ♦ .5 * topGAP. 500 - 2 
SizeAControl popup. 250, 200. 250. 200 
selector . BorderWidth » 1 
dayline< 0) .Yl ■ C 
dayLmeiOl .Y2 » SCO 
initialize variables 
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startTim = fakeToday ♦ fakeTime 'this would be se: a- ac:iva:e to currer.: half 

hour 

NDays ■ 1 
5 slotsPerDay = 24 

XSlcts = N*Days w slotsPerDay 
sameFi i ter - Fa Ise 
sameView = False 
ir.Preview = False 

'sec form scale and place permar.ten; stuff (day and time labels: 
10 Me.ScaleWicth = NSlots 

Load Iblbayll) 

SizeAControl IblDay(l). 0. IblHeight. 0. slotsPerDay 
lblDayd } .Caption = DayString ( startTime , "long"} 
IbiDay ( 1 ). Visible * True 
, 5 IblTimeiO) .Width » 1 

For i » 1 To slotsPerDay 

Load IblTime(i) 

IblTirne(i) .Move i - 1 

t = Date Add ( "n" , 30 * ( x - IS. startTine i add 3C minute increments 
IblTir.eii) .Caption TimeLabelit) 
20 IblTimeiU .Visible = True 

IblTime i i ) . ZOrder 
Next i 

InputData 
2 s Forir._Activate 

sameView = True 
End Sub 



Sub TnputData ( ) 
part of form_load 

cpens the database and creates allData snapshots 

Di.ti DB As database 

Dim Re f Snap As snapshot 

Set D3 = OpenDatabase (TVDB) 

•get reference date and number of stations 
Set RefSnap « DB . CreateSnapshot ( "Reference" ) 
Ref Snap . FindFirst *Name « 'Date'" 
refDate = DateValue ( RefSnap < "Data " ) ) 
Ref Snap. FindFirst "Name * 'NStations'" 
MaxStation = Val (RefSnap < "Data" \) 



Set allData (0) * DB . CreateSnapshot ( " Programs " ) 
assumes data already sorted 

filter for particular time period,' would happen at each half-hour change 
753egin = Abs ( DateDif f < "n" , startTime, refDate) \ 30) 
TSEnd = TSBegin ♦ slotsPerDay - 1 'check that slotsPerDay is sec 
allData(O) .Filter = Overlap (TSBegin . TSEnd) 
Set alirata(l) * allData ( 0) .CreateSnapshot t ) 
Sec allDatatO » Nothing * won ' t be needing everything 
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w 



20 



30 



40 



tr.d Sub 

Sub MakeDisplay (} 

•create the display of programs from the data 
Dim i As Integer 'counter 
Dim d As Integer 'day 
Dim F As snapshot 'convenience 

If Not same View Then 

'would need to reset captions for times and day 
End If 



place program shapes 
Cis 'clear the form of previous drawings 
15 DoEvents 'make it so 

For d = 1 To NDays 
currDay = d 

*dr aw lines to separate time slots 
For i 0 To slotsPerDay 
drawwidth » 4 

Line (i, ahpSloc (0) . Top) - ( i . 500), slotCOLOR 
Next i 

'draw program shape for each program in^data 
Set F = f ilterData(d) 
Zt Not F . EOF Then 
25 F.MoyeFirst 

Do While Not F EOF 

DrawProg F(colorField) , Fi -Starr*). F( "Finish"), F( -Station-) 



F . MoveNext 

Loop 

F .MoveFirst 
End I f 
Next d 



' initialize stuff 
rscurrent « TSBegin 
35 currDay • 1 

shpProg (0 ) . ZOrder 
selector . ZOrder 
Set F = filterData (currDay ) 
'find a program to start on 
Do While TScurrent <= TSEnd 

F.FindFirst Overlap (TScurrent . TScurrent} 
If Not F.NoMatch Then 
DisplayProg 
Exit Do 
Er.d If 

45 TScurrent = TScurrent ♦ 1 

loop 

'make sure TScurrent is in range 
If TScurrent > TSEnd Then TScurrent » TSBegin 
End Sub 

50 Sue Position (shape As Control, start, finish, station) 
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'position a program shape control 

Dim relativ L. relativeW. dayStart 
Dim edge 

'convert a day/time to position in NSlot scale 

days tart = startTime * currDay - 1 

r lativeL = (start - dayStart) * 46 

relativeW » (finish - dayStart) * 46 - relacivel 

clip shapes off at day boundaries 
If relativeL < 0 Then 

relativeW* * -relativeW ♦ relativeL y 

relativeL = 3 
End If 

If relativeW ♦ relativeL > slotsPerDay Then relativeW - slotsPerDay - relat 

'set left and width of shape, leaving small gap between programs 

edge » (currDay - 1) * slotsPerDay 

shape. Left * relativeL * edge ♦ sideGap 

shape. Width = relativeW - 2 • sideGap 

'set minimum width so program is visible 

If shape. Width < MrNProgWidth Then shape. Width * MINProgWidth 
'set top according to station 

'note: this will not work if "favorite" stations are not numbered l..n 
rowOffset * ((500 - 2 • IblHeight - shpProg < 0 ). Height ) / NStation) . 
shape. Top » shpSlot ( 0 ) .Top ♦ topGAP ♦ (station - 1) • rowOffset 
End Sub 

Function VDistHoriz (stationl, finish, station2 . start) 

'computes a value for the "visual* left-right distance between two programs 
'requires that the earlier program come first 

'note: needs refinement, does not work satisfactorily, especially with crowded 
displays 

Dim deltaR, deltaT 'change in row and time 
Dim r'owl, row2 

rowl = stationl 
row2 ■ station2 

'note: row calculations could be more complicated if stations not numbered. 
deltaR = Abs(rowi - row2) • (100 / NStation) 
deltaT = (start - finish) • (100 / slotsPerDay) 
•penalize programs that are more up&down than to side 

If deltaT <= 1 Then deltaT * (finish * 3 - start) • (100 / slotsPerDay) 
If deltaT < 1 Then deltaT = 100 / slots PerDay ' don ' t allow zero 
VDistHoriz = deltaR * deltaT 
End Function 

Function VDistVert (stationl. startl. finish!. station2. start2. finish2) 
■computes a value for the "visual" up-down distance between two programs 
"note: needs refinement 

Dim deltaR. deltaT 'change in row and time 
. Dim rowl /" row2 

rowi s stationl 
row2 » statior.2 

'note: row calculations could be more complicated if stations not numbered 
deltaR « Abs(rowl - row2 ) / NStation 
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10 



15 



20 



30 



If starcl > finish2 Then 

deltaT « Abs ( startl - finish?) 
Elself scar:2 > finishl Then 

deltaT = Abs (s:ar:2 - finishl) 

Els 

deltaT * 0 
End If 

VDistVert = deltaR - 2 * deitaT 
End rune -ion 

\ 

' FRAME form code «so»«c 

'This form owns the standard info and status bars and allows 

transfer of control from fcrrr. to form. 
Option Explicit 



Sub Form_Activate ( } 

'decides which other form should show in its display area 
Select Case returnCode 
Case SKOWVIEW 

views ( cur r Domain) . Show 
Case PICK 

f rmSelect . Show 
Case 70TV 

f rmTV. Show 
Case LASTVIEW 
25 sameFilter « True 

views (currOomain) .Show 
Case STARTUP 

'do nothing- -don* t want rolodex to show yet 
Case Else 

f rr.Dex.Show 
End Select 
End Sub 



Sub ?orm_ Key Down (KeyCode As Integer, Shift As Integer) 

If KeyCode * AscCQ") Then 
35 End 

End If 
End Sub 



Sub Fonn.Load I ) 

•set colors and fonts 
#£? Me.3ackColor « formCOLOR 

ssplnf o . "ontSize ■ mediumFONT 
sspStatus . FontSize « mediumFCNT 
•use builtin ob}ect to size background 
ScrWidth « Screen. Width 
45 Scr Height * Screen . Height 

If displayMode - -mini" Then 
' for taking screen prints 
ScrHeight « ScrKeight * .54 
ScrWidth = ScrWidth * .712 
displayMode = "TV" 

so „- 
• xse 
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'resize to fit TV 
ScrHeight * ScrHeight • .83 
End If 

5 'set form to fill screen 

frmFrame . Top » C 

frmFrame. Height = ScrHeight 

f rmFrame. Left « 0 

frmFrame. Width » ScrWidth 
1Q 'info line at top cf screen 

ssplnfo . Visible « True 

'status line at bottom of screen 

sspStatus .Visible « True 

'define available display area 

DispTop » ssplnfo. Height ♦ 1.5 
is DispHeight = frmFrame . Height - ( sspStatus . Height ♦ 1.5) 

DispLeft = 0 

DispWidth = frmFrame. Width 

End Sub 

2Q Sub SetupStatus () 

End Sub 

• =«=== LIST form code = === = = 

'This code is used for all three list forms (TV, Mcvies, Shopping ) 
Option Explicit 
25 Dim 33 As -database * full database with indexes 

Dim BlinJcCpntrol As Control * set to blinking object (currently none) 
Dim itemSelected As Integer 'from 1 to MAXDISPLAY 
Dim locSelected As Integer 'from 1 to MAXLOC 
30 Dim inPreview As Integer 'boolean 

Dim captionField As String 'the database field that is used for display 
Dim startTime 'the start time for the TV list 
Dim TS As Long 'the time slot for the TV list 

Dim rowOf f set 'difference between tops of two consecutive reduced items 
Dim browsing As String 'type of current shopping list 
35 Dim colorField As String 1 field which determines color (should be of type integer) 

•display parameters 

Const MAXDISPLAY * 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
40 Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrl tern (MAXDISPLAY) As Integer 'which rltems are in the current display 

"define sizes of locator and selector 

Const GA? * 10 'space around lists 

Const EXTRA = 70 'room for longer programs 
45 Cons t reducedEXTHA * 20 'room for longer programs in reduced rep 

Const T - SO 'reduced list 

Ccnst H » 1000 - 2 • T 

Const loci * 30 'display area 

Const locW = 100 
so Ccnst dispL = locW ♦ 2 * locL 

Const dispW a 1000 - dispL - locL 



- DispTop 
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database snapshots 
3i.t allData As snapshot 
D-m itemData As snapsho- 
ot scoreData As snapsh t 
Oi.-n deptOata As snapshot 
stuffData As snapshot 
fliterData As snapshot 
-:s •marker ( WOO ) : As = s> r i ■ . k » 

Sub ApplyFilter () 
filter the data according to user choice 
Dim sortString As String 

If Me Is TVlist Then 

captionField = -Title-' 

sortString • 

colorFieid » "Type- 
Else: f Me is MOVlist Then 

If same View Then 

"keep allData as it is 

Else 

reset allData co all movies 
LoadJaca 

aUData. Filter = viewFilter 
End lV aUData 3 - l - D «*-Cra.t. S „apsho S (, 
captionField » 'Title* 
sortString • "Title" 
colorField » "Type- 
Elself Me is SKOPlist Then 

sr sax r~ — 

Select case filters ( currDomain) 
Case -store- 
browsing = " store - 

Sec allData « storeData 

captionField « -name" 

f-itersf currDomain) * 

sortString * "name" 

cclorField = 
Case "dept- 

brews ing = -dept- 

aeptData.FindFirst -name * • - fc userS . nnfl 
userString . f . x _ . h ,« • ^serS. ring & 

If deptData. Novated Then >X shouldn't use userString 

Set allData • deptData 
filters (currDomain) • 

Else 

browsing = -stuff- 
filters (currDomain) = - {dept cod»i » - *. * 
Set aUData « stuffData deptOata < -code" ) 

End If 
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captionField « "name" 
sortString • "name" 
colorField « 
Case "item* 

browsing » ■ item - 
Set allData = itemData 
captionField = 'name" 

colorfield = " * „ 
f il ters< cur r Domain) = -name like i user*tring 
sorts tring = "name* 
Case Else 

browsing » "stuff 
captionField * "name* 
sortString ■ "name" 
colorField = "litem code) " 
15 Set allData = stuffData 

End Select 
End If 
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allData. Filter - filters (cur r Domain) 
If filters (currDomain) « " * Then 

allData. FindFirst "Not " & captionFiela S. " » 

Else 

allData. FindFirst allData . Filter 
End If 

If allData. NoMatch Then 
25 MAX IT EM = 0 

El3e MAXITEM • 1 'temporary setting just to make sure it isn't 0 
Set filterData « allData . CreateSnapshot ( ) 
f ilterData.Sort « sortString 

Set filterData = filterData . CreateSnapshot ( ) 

End If 
End Sub 
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Sub 31inkStart (C As Control, vis) 
Set BlinkControl « C 
BlinkControl .Visible » vis 
tmrBl ink. Enabled * True 
End Sub 

Sub BlinkStop (vis) 

tmrBl ink. Enabled = False 
If BlinkControl Is Nothing Then 
'do nothing 

Else 

BlinkControl. Visible « True 
End Zi 

45 set BlinkControl = Nothing 

End Sub 

Sub ChangeLcc (direct As String) 
•page up or down with the locator 
so Select Case direct 
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Case "Up" 

If iocS iected > 1 Th n 

locSelect d * locSelected - l 
RedoDi splay 
End If 
Case "Down" 

If locSelected < MAXLOC Then 

locSelected = locSelected ♦ 1 
RedcDispiay 
End If 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
'navigate up or down one selection 
Select Case direct 
Case -f Jp- 

If itemSelected > l Then 

•move up within current display 
itemSelected * itemSelected - i 
selector. Top « itemSox ( i temSelected } . Top - GAP 

"X/ r ^^<whichr:tem(itenselected) , .Top 
rl_emfO> .Lett « locL - GAP 

rltem(O) .Width » locW * 2* GAP 

Setltemlnfo 
Slself locSelected > l Then 

•display previous section of list 

itemSelected » MAXDI SPLAY 

locSelected s locSelected - l 

RedoDisplay 
End If 
Case "Down" 

If itemSelected < MAXDISPLAY Then 

'move down within current display 

•do not move to select an empty item 

se-ector.Top » itemBox(itemSelected) .Top - GAP 

I'ATill r f tem,whieh ' I «»< itemSelected)) .Top 

r.temt j) . w ef t » locL - GAP 

rlterMO) .Width » locW * 2 • GAP 

Setltemlnfo 

End If 

Elself locSelected < MAXLOC Then 
'display next section of list 
iterr.Selected » 1 
locSelected « locSelected ♦ l 
RedcOisplay 
End If 
End Select 

rltem(C) .Visible = True 
End Sub 

Sub Do Preview ( ) 
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' shew preview window and preview locator 
D:.ir. i As Integer 'counter 

inPreview « ?ru 

•hide other stuff 
locator .Visible « False 
selector .Visible » False 
For i = 1 To MAXDISPLAY 

it emBox( i ) .Visible » False 

ieftArrowf i) .Visible * False 

rightArrowii) .Visible = False 
Next i 

previewWin. Caption = "Getting preview...* 
previewWin . ZOrder 
previewWin .Visible « True 

ShowPrev;ew 
End Sub 

Sub DoSelect () 

•act on the current selected item 

If Me Is TVlist Then 

'set selection data and go to TV 
userStation = filterData ( "Station - » 
userStart » filterData ( "Start " ) 
returnCode = TOTV 
Me. Hide 

Elself Me IsMOVlist Then . . 

•display "order movie" message 
sameFilter ■ True 

TellUser "You would be asked to confirm your order of " & 
filterDataCTitle") 

Elself Me Is SHCPiist Then 
Select Case browsing 
Case "stuff" 

sameFilter = True 

TellUser "You would be asked to confirm your order of " & 
f i 1 terData < "name" ) 

Case "store" 

filters (currDomain) * "(store code] * " & i il terData I " cod 
ronn.Activace 
Case "item" 

filters tcurrDomain) = "[-tern code] - " U filterData < "code 
Form_Activate 
Case "dept" 

filters (currDomain > = " (dept code] * " & filterData ( "code 
Form_Activate 
End Select 
End If 
End Sub 
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S-b End Preview ( ) 

•go back co regular list operation 
Dim i As Integer 'counter 

previewWin. Visible = False 
in?review » False 
locator .Visible = True 
selector .Visible = True 
previewWin. Top * dispiayLis t ; Top 
RedoDisplay 
End Sub 

Sub Form_ Activate () 

Dim i As Integer 'counter 

Dim section As Integer 'count the nurtiber of locator locations 

Dim NVisibie As Integer 'tally the visible shapes ir. a section 

Dim msg As String 

Static saveFilter As String 

Static saveView As String 

'check new filters against current filters 

If Not sameView Then sameView a (saveView ■ viewFilter) 

saveView » viewFilter 

If Not sameFilter Then sameFilter a (saveFilter » fi Iters ( currDomain ) ) 
saveFilter * fil ters ( currDomain) 

SetStatus currView ( currDomain J k currFi Iter (currDomain) , greyCOLOR 

If sameFilter And sameView Then 

'keep everything the same as last time 
If newUser And Not Me Is SHOPlist Then 

popup. Caption = "To change the category shown, press the 'Category' 

button. " 

popup. Visible = True 

newUser » False 
End If 
RedoDisplay 

Else 

'clean up display 

Setlnfc "Selecting data, please wait...". GREY 
If MAX IT EM « 0 Then 

previewWin. Caption = 

previewWin. Visible a False 
End If 
DoEvents 

If inPreview Then EndPreview 

For i = 1 To MAXDISPLAY 

itemBox(i) .Caption * 
Next i 

For i a 1 To MAXITEM 

Unload rltem(i) 
Next i 
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' filter new data 
ApplyFilter 
If MAXITZM » 0 Then 

•give "no matches - msg 
locator. Visible * False 
rltera(O) .Visible » False 
For i = 1 To MAXDISPLAY 
. MAX IT EM » C 

itemBoxt i ) .Visible » False 
leftArrow(i) .Visible * False 
rightArrow(i) .Visible « False 
Next i 

previewWin. Caption » -No matches were found- 6 Chr:i3) 
75 previewWin. Caption « previewWin . Caption & "Press 'Category' to change 

the selection. ■ 

previewWin . ZOrder 
previewWin. Visible = True 
itemSelected * 0 
locSelected = 0 

20 Else 

redo list display 
f i 1 1 erDa ta . MoveLas t 
MAXITEM « f ilterData. RecordCount 
'set distance between items 
25 rowOffset - (H - rltem( 0 ). Height ) / MAXITEM 

If rowOffset > rltem(O) .Height ♦ GAP Then rowOffset = rl tern ( C i . Height - 
GAP max distance 

rltem<0> .Visible * False 
rltem(O) .Top « T 
. _ rltem(O) .Left * locL ♦ reducedEXTRA 

rltem(O) .Width - .locW • 2 • reducedEXTRA 
rltem(O) .BackColor » itemCOLOR 
f ilterData. MoveFirst 
•size and place the item shapes 
•and set section bookmarks 
35 section » 0 'number of locator locations 

NVisible = MAXDISPLAY 'so first section will be marked correctly 
For i « 1 To MAXITEM 
Load rltem(i) 
If colorField <> * - Then 

rltem(i) .BackColor = Cclor <Val i f ilterData (cclorField) ) Mod 9) 
End If 
NVisible s NVisible ♦ 1 
rItem(i).Top » T ♦ (i - 1) • rowOffset 
If NVisible > MAXDISPLAY Then 
•begin a new locator location 
45 section = section - 1 

locStart (section) * i 

marker (section) « f ilterData . Bookmark 
NVisible = 1 
End If 

If Me Is TVlist Then 

•set length of reduced item 
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If f ilterData ( -StarrTS- ) < TS Th n 

rltem{ i ) . Lef t » rltem ( i ) . Lef t - reduc dEXTRA 
rltem(i) .Width » rltem ( i ). Width * reducedEXTRA 

End If 

If filterDataCFinishTS") > TS Then 

rltem(i) .Width = rl:em( i ). Width - reducedEXTRA 
End If 
End If 

\ rltem { i J . Zorder 

rltem(i) .Visible = True 
f i I terData . MoveNext 
Next i 

MAXLOC « section 

locStart (section ♦ 1 ) = MAX ITEM ♦ 1 

'set length of minselector (use rltem(O)) 
rltem(O) .Left » locL - GAP 
rlteir.(O) .width * locW ♦ 2 * GAP 



'initialize selector and locator 
20 itemSelected * 1 

locSelected » 1 
locator .Visible « True 
rltem(O) .BackColor = highlightCOLOR 
'set the captions in the itemBoxes 
25 RedoDi splay 

End If 
End If 
End Sub 

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) 
30 popup. Visible = False 

Select Case KeyCode 
Case Asc ( "Q" ) 

End 
Case B_BACK 

35 If Me Is SHOPlist And browsing = "item- Then 

'not exactly what we want 
returnCode » ALPHA 
Me. Hide 

Else 

returnCode s BACK 
40 Me. Hide 

End If 
Case B.HELP 

InvckeHelp 
Case B_PREVIEW 
45 -f inPreview Then 

EndPreview 

Else 

DoPreview 
End If 
Case B_5ELECT 
50 If MAXITEM > 0 Then DoSelect 
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Case B_UP 

If MAXITEM > 0 Then ChangeSel fjp"! 
Case B_DOWN 

If MAXITEM > 0 Then ChangeSel CDown'l 
Case B — RIGHT 

If Me Is TVlist Then 

recumCode = COMING 
Me. Hide 
End If 
Case B_LEFT A > 
Case B_?AGEUP 

If inPreview Then 

•scroll preview 

If previewWin.Top < displayList . Top Then 
• move preview window down a screen 

previewWin.Top » previewWin.Top ♦ displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Up") 
End If 
Case B ..PAGEDOWN 

If inPreview Then 
•scroll preview 

If previewWin.Top ♦ previewWin . Height > displayList . Top 
displayList .Height Then 

•move preview window up a screen 

previewWin.Top * previewWin.Top - displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Down") 
End If 
Case B.FILTER 

If Not Me Is SHOPlist Then 
retumCode » Filter 
Me. Hide 
End If 
Case B_0 

retumCode ■ SHORTCUT 
Me. Hide 
End Select 
End Sub 

Sub Form_Load < ) 

Dim i As Integer 'counter 
Dim itemRoom 

'set colors and fonts 
itemBox(O) .FontSize = largeFONT 
leftArrow(O) .FontSize * largeFONT 
rightArrow(O) .FontSize ■ largeFONT 
If displayMode * "PC" Then 

popup. FontSize « largeFONT 

previewWin. FontSi2e » largeFONT 

Else 
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previewWin. FontSize - mediumFONT 
popup. FontSize * small FONT 
End If 

5 rlt mtO) .BackColor * itemCOLOR 

s lector. FillColor » highlightCOLOR 

cisplayList .FillColor * backgroundCOLOR 

previewWin. BackColor » backgroundCOLOR 

locator. FillColor « backgroundCOLOR 

itemBox (0) .3ackColor » itemCOLOR * 
10 leftArrow(O) .3ackColor « itemCOLOR 

rightArrow<0) .BackColor « itemCOLOR 

shpSlot . BorderColor * slotCOLOR 

•size the objects to the screen 

SizeAForm Me. DispTop, DispHeight. OispLeft. OispWidth 
is Me. Scale (0. 0)-(1000. 1000) 

SizeAControl locator, T - GAP. H ♦ GAP. locL - GAP. locW * 2 • GAP 

SizeAControl shpSlot. T, H. locL «■ reducedEXTRA. locW - 2 • reducedEXTRA 

SizeAControl displayList. T - GAP. H ♦ GAP. dispL. dispW 

SizeAControl popup, dispW / 2. 4 • locW, dispW / 2, 4 • locW 

CPlace 1. previewWin. displayLisc 
20 locator .ZOrder 

shpSlot. 20rder 

rltem(O) .20rder 

itemRoom * H / MAXDISPLAY 

SizeAControl itemBox(O) . T ♦ (.5 • GAP). itemRoom - GAP. dispL ♦ EXTRA. dispW - 
2 • EXTRA 

SizeAControl patch{0) . 50. (6.8 • itemBox ( 0 ). Height ) . (12.3 • itemflox ( 0 ). Width) 
(7 * itemBox (0) .Height) 

If displayMode = "TV" Then 

patch(O) .Left « 8.08 * i temBox ( 0 ). Width 
pat=h(0) .Height = 3.7 * itemBox :0) .Height. 
50 End If 

SizeAControl lef tArrow(O) . T ♦ (.5 • GAP). itemRoom - GAP. dispL. EXTRA 
SizeAControl righcArrowf 0) . T ♦ (.5 • GAP). itemRoom - GAP. dispL ♦ dispW - 
EXTRA. EXTRA 

SizeAControl selector, T # itemRoom ♦ GAP. dispL. dispW 
3S se lector . ZOrder 

For i » 1 To MAXDISPLAY 

'Load itemBox(i) 'Now created at design time- -fixed number (6) 

itemBox(i) .Visible » False 

CCopy iremBox(O). itemBox(i) 

patent i) .Visible ■ False 
40 CPlace 0. patch(i), patch (0) 

itemBox(i) .Top * itemBox ( 0 ). Top ♦ [i - l) • itemRoom 

Load leftArrow(i) 

leftArrow(i) .Top = itemBox <i> .Top 
Load right Arrow ( i ) 
4S rightArrow(i ) .Top - itemBox < i ) .Top 

Next i 

• load the list data and set up the display 
sameFiiter ■ False 
sameView ■ False 
so LoadData 
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rorm.Activate 
sameFilter « True 
End Sub 

5 

Function ItemString () As String 
■ set msg to be used in info bar 
Dim msg As String 

If Me Is TVlis- Then 
1 ° msg = Format I f ilterData ( "Title" ) ) & on ■ \ 

msg = msg & StationString t filterData < "Station" ) ) & " 
msg = msg & TimeString ( filterData( "Start" ) ) & " to " 
msg = msg k TimeString ( filterData (" Finish" ) ) 
Elself Me Is MOVlist Then 
1S msg * Format ( filterData ( "Title" ) ) 

msg « msg & • . ■ & Format < filterData < "Year" ) ) 
Elself Me Is SHOPlist Then 
Select Case browsing 
Case "stuff 

msg - Format ( filterData ( "name" ) ) &"-$"& Format { filterData ( "price" ) ) 
20 End Select 

End If 

ItemString = msg 
End Function 

2S Sub LoadData ( ) 

Dim re f Snap As snapshot 
Dim refDate 

'load in the database as a snapshot 
If Me Is TVlist Then 
30 startTime «fakeToday +. fakeTime 

Set DB ■ OpenDat abase ( TVDB ) 

Set refSnap • DB. CreateSnapshot ( "Reference" ) 
ref Snap . FindFirst "Name » 'Date'" 
refDate = DateValue (ref Snap ( "Data" ) ) 
gs Set allData = DB .CreateSnapshot ( " Programs " ) 

•filter for time would really happen at activate 
TS « (startTime - refDate) * 48 
allData. Filter = Overlap (TS, TS) 
Set allData ■ allData . CreateSnapshot { ) 
Elself Me Is MCVlist Then 
*0 Set DB « OpenDatabase(MVDB) 

Set allData = DB . CreateSnapshot ( "Movies" ) 
Elself Me Is SHOPlist Then 

Set DB = OpenDatabase(SPDB) 
Set itertData = DB .CreateSnapshot ( "Items" ) 
4S Set stcreData « DB . CreateSnapshot ( "Stores " ) 

Set deptData DB . CreateSnapshot ( "Departments" ) 
Set stuff Data = DB . CreateSnapshot (" Stuff " ) 
End If 
End Sub 

SO sub RedoDisplay () 
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set the captions in the itemBoxes to correspond to items in locator 
reposition locator and selector, update info box 

Dim last As Integer 
Dim i As Int g r 

Dim Index As Integer 'index of rltem 

If MAX ITEM « 0 Then Exit Sub 

•figure first item location ^ 
f --terData. 3ookmark = marker { locSelectec ) 
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Index = locStart ( locSelected) 
For l = I To MAXDI SPLAY 

If f ilterOata.EOF Then 
is 'hide empty itemficx 

itemBox( i ) .Caption » "" 
itemBox ( i ) .Visible « raise 
leftArrow(i) .Visible « False 
rightArrow(i) .Visible = False 

Else 

whichrltem(i) * Index *so we can highlight the correct rltem : reduced 

i - err. ) 

If colorField <> ■ ■ Then i temBox < i ) . BackColor = 
Color(filterOata(colorField) Mod 9) 

itemBox(i) .Caption » f ilterOata (captionField) 
25 If Not inPreview Then itemBox ( i ) .Visible * True 

If Me Is TVlist And Not inPreview Then 

"show arrows to reflect program length 
If f ilterData( "StartTS" ) < TS Then 

leftArrow(i) .BackColor = itemBox ( i ). BackColor 
_ " leftArrow(i) .Visible = True 

30 Else 

leftArrow(i) .Visible » False 
End If 

If filterData( "FinishTS* ) > TS Then 

rightArrow(i) .BackColor ■ itemBox ( i ). BackColor 
3S rightArrowl i ) .Visible » True 

Else 

rightArrow(i) .Visible = False 
End If 

'show color patch for subcategory 

patch(i> .FillColor ■ Color ( filterData < "Category- ) Mod 9) 

patch(i) .Visible = True 
End If 
last = i 

Index = Index - 1 
f i 1 1 erDa t a . Mo veNext 
45 E r -c If 

Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 

itemSelected = last 
End If 
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'fix the rest of the display 

displayList .Height = H + 2 • GAP - (H / MAXEISPLAY * (HAXDISPLAY - last!) 
'display list shrinks when fewer than MAXDI SPLAY items displayed 

selector. Top = itemBox ( itemSelected) .Top - GAP 'behind current itemBox 
locator. Top s T * rowOffset • ( locStart ( locSelected) - 1) 

locator . Height » last • rowOffset ♦ rltem(O) .Height - rowOffset 'height shrinks 
wher. displayList shrinks 

rltenUC ) .Top = rltenuwhichrltem ( itemSelected) ) .Top 

Setltemlnfo 
End Sub 

Sub SetZtemZnfo () 

'display current item's info in info bar 

Dim i As Integer ' t of records away from bookmark we need to go 

Dir. msg As String 

'find selected record 

filter Data . Bookmark = marker ( locSelected) 
i = itemSelected 
While (i > 1) 

f i 1 terData . MoveNext 

i = i - 1 

Wend 

' Put info in the inf c bar 

Setlnfo ItemString ( J . ( itemBox < itemSelected) . BackCo lor) 
'update preview window if needed 
If inPreview Then ShowPreview 
End Sub 

Sub ShowPreview { ) _ 

'Display the video, still, or text preview 
' of the item selected 
Dim msg As String 
If Me Is MOVlist Then 

msg = f ilterData < "Plot" ) 
Elself Me Is TVlist Then 

msg * f ilterData < captionField) & Chr<13> 

msg = msg & StationString ( f ilterData (" Station" ) ) & Chr(13) 

msg = msg & CategoryString (( f ilterData < "Type" )) , ( f ilterData < -Category" >> ) 

Else 

msg * 'This would be a video, still, or textual preview of 
msg » msg « f ilterData (capt ionField) 
msg = msg & 
End If 

previewWin .Visible ■ False 
previewWin . Capt ion * msg 
Crlace D, previewWin, displayList. 
previewWin . Visible = True 
End Sud 

Sub tmr2iink_Timer () 

SlinkConcrol .Visible = Not BlinkControl . Visible 

Er.d Sub 
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= = MESSAGE fora code «■«■«= 
This form is used by Help and som lists :3 display mfonzc; 
* temporarily covering up the current form . 
Option Explicit 

Const GAP = 5CC 

Sub Form_Act ivate ; ) 

cextArea . Caption » userMsg 
End Sub 



Sub Form.KeyDown { KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
15 Case Else 

returnCode * KeyCode 
Me. Hade 
End Select 
End Sub 

20 

Sub Form_Load { ) 

'set colors and fonts 
Me. BacxColor * itemCOLOR 
textArea . BackColor » iteinCOLOR 
textArea . FontSize * largeFONT 
25 'set sizes 

SizeAFcrm Me. DispTop, DispHeight. DispLeft, DispWidth 

SizeAControl textArea. GAP. DispHeight - 2 * GAP. GAP. DispWidth - 2 • GAP 
"initialize - ~- - 

textArea . Caption = " " 
End Sub 
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' ====== ROLODEX form code ====== 

'This form shows the main menu and filter menus. 

• Unimplemented : Have filter button color correspond to type/category color 
Option Explicit 

Dim BlinkControl As Control 'pointer to blinking highlight 
Dim parent As Integer 'number of parent card 
Dim current As Integer 'number of current card 

'special cards 

•note: these must be updated each time the number of filter cards in the card 
dataf ile changes 

Const filterCARU = 1 * TV filter menu 
Const miilterCARD « 68 'movie filter menu 
Const homeCARD = 96 'main menu 

Dim lastCard As Integer 'holds number of regular card while in filter 

Const MAX7I7LE * 3 "WARNING: A change in MAXTITLE requires a change in code f o: 
LoadGraphics 

Const CARDSKIFT » 2.5 'for card display- -amount change in card placement 

Const MAXROWS = 3 'for card display- -number of rows of buttons 

Const MAXCOLS » 3 'for card display- -number of columns of buttons :n a card 
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C:r.s: MAX CARD = 9 'max number of cards -hat can be displayed on screen 
~ ;n5t MAX ITEM = 9 'max number of buttons on a card 

•action codes: teli what action to tax for a button choice 
•actions greater than ectNEXT need additional input 
Ccr.st act COMING » 2 
Const act NOW = 3 
Cor. st actNEXT » 5 
Const actALPKASHO? = c 
Const act FILTER = 7 
Const actALPHATV = 8 
Const a C t AL PHAKOV = 9 
Const actDOMAIN = 1C 
Const actLATER = II 
Const actWEEK - 12 
Const actWKEND « 13 
Const actSCHED « 14 
Const shortTWIEW = 3 3 
Const shortMWIEW « 31 
Const shortSPVIEW * 32 
Ccnst shortTVNOW = 3 5 
Ccnst shortTVFAV =35 
Const shortMVFAV * 37 
Const shortSPFAV * 38 
Const act MOVIE -40 
Const act STORE » 50 
Ccnst actDEPT » 52 
Const act MORE = 60 
Const act NONE = 65 
• for development only 
Const act KEYS » 71 
Const actTABS * 72 

Sub Animate (direct As String, cardNo As Integer) 

'Animate opening another card, backing up. or selecting a button 

Dim index As Integer 

Dim depth As Integer 

DoEvents * do not interrupt another animation 
depth « Cards (current) . level 
Select Case direct 
Case "Back" 

If Cards (current ) .parent > 0 Then 

CCopy sspCard (depth) , sspCont 

sspCont . Visible = True 

Zoom 1C, sspCont. sspItem(Cards 1 current >. self ) 

DisplayCard i Cards ( current j . parent ) 

sspCor.f. Visible ■ False 
Enc If 
Case "Next- 

incex = Cares ; current ). selected 
If index > 0 Then 

CCopy sspltemt index) , sspCont 

sspCont . Visible * True 
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sspCont.BackCoior • sspCard (0 ) . EackColor 
Zoom 1C, sspCont. sspCard (depth: 
DisplayCard cardNo 
sspCont .Visible « False 
End If 
Case -Select" 

index * Cards ( current ). selected 
If index > C Then 

CCopy sspl tern ( index ) , sspCont 
sspCont .Visible * True 

sspCont.BackCoior « sspCard ( C ■ . 3acJcColor 

SizeACcr.crol sspCard<0), 0. 5CC . C. SCO 'size of whole form 
Zoom 1C, sspCont, sspCard (0) T 
End If 
is E*id Select 

Zr.d Sub 

Sub 31 inks tart (C As Control, vis) 
'enable blinking object 
Set BlinkControl « C 
BlinkContrcl .Visible = vis' 
tmr Blink. Enabled « True 
End Sub 

Sub BlmkStcp [vis) 
2s 'stop blinking object, leaving visibility as vis 

tmrBlink. Enabled = False 
If BlinkControl Is Nothing Then 

'do nothing 
Else 

BlinkControl .Visible * vis 
End If 

Set BlinkControl * Nothing 
End Sub 

Sub ButtonAction () 
3S 'perform action associated with selected button 

Dir. button As Integer 
Dim cardNo As Integer 
Dim msg As String 

button = Cards (current) .selected 'item rubber of selected button or. parent -ard 
cardNo « Cards i current ). item ( button) 'card nurJber of selected button 
If button < 1 Then Exit Sub 

Select Case Cards ( cardNo ). actionCode 
Case actNONE 
45 'an inactive button 

Setlnfo -This option is not yet available.-. greyCOLOR 
Case actNEXT 

'display the next card 

Animate -Next', Cards ( current item i but t— ) 
Case act DOMAIN 

~ W Change current domain before going tc the next card 
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curr Domain = Val (Cards (cardNo) . actionDatal 
SetStatus Cards (car dNo i . name. greyCOLOR 
Animate "Next - , Cards (current) . item tout ton) 
Case act MORE _ 
5 -show mor choices on same topic (currently same as act NEXT) 

Animate "Next". Cards ( current > . iterMbutton) 
Case act COMING 

'show schedule cf what's coming up on TV 
Animate "Select". D 
W sameTilter = False 

Set views ( curr Domain) * frmCommg 
returnCode = SHOWVIEW 
Me. Hide 
Case accNOW 

show what's on TV now 

15 currViewi curr Domain) = 'TV 6:33pm : • 'obviously, this would be the current 

time 

Animate "Select". 0 
sameFilter = False 
same View = True 
20 Set views (currDomain) = listFrmi currDomain) 

retumCode = SHOWVIEW 
Me. Hide 
Case act LATER 

'show what's on TV for a later day 
'currently non- functional 
'Animate "Select" , 0 
'sameFilter « False 
'Set views (currDomain) 3 frmFriday 
returnCode « SHOWVIEW 
Me. Hide 
30 Case actWEEK 

'show TV schedule for weekdays 
Animate 'Select*. 0 
sameFilter - False 
Set views < currDomain) * frmWJcday 
returnCode * SHOWVIEW 
Me. Hide 
Case actWKEND 

' show TV schedule for weekend 
'currently non -functional 
Animate "Select", 0 
40 sameFilter = False 

'Set v i ews ( cur r Doma in) * i rmWk e nd 
returnCode « SHOWVIEW 
Me. Hide 
Case actSCHED 

' show TV schedule 
currently non- functional 
•Animate "Select". C 
'sameFilter = False 

Set views (currDomain) * f rmSched 
retumCode » SHOWVIEW 
SO Me. Hide 
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Case actALPHASHO? 

'gee a string from user . . 

■*«.: -his wou ld ?r :::M ^- d : ; e r inn " 9 with — ■ 

5 Animate "Select-. 0 

SetStatus "Shopping, - & Cards (car dKo) .name. greyCOLOR 
msg s Cards (cardNo) .actionData ^reytoLOR 
Set Info msg, YELLOW 
Wait frmAlpha 

If re,curnCcde <> 3ACK And userString <> 7 rer 
10 sameFilter « False 

filters ,'currDomain J = "item- 
Set views (currDomair.i * listFmncurr Domain' 
returnCode - SHOWVXEW 
Me. Hide 
,5 End If 

Case actALPHATV 

•allow user to select a show title 
Animate -Select". C 

Srf"^ U !I " W< " * Cards(c «^o).name. greyCCLOR 
returnCode » PICK r 

20 Me. Hide 

Case actALPHAMOV 

■ T * iS l^ ?°: h0 ° ked UP C ° W ° rk ' but * c ^ ld Probably be 
« lot like actALPHTV y 

'Animate "Select". 0 
2s Case actFILTER 

'send a new filter to a TV view 
filters (currDomain) - Cards (car dNc) . actionData 
currrilter(currDomain) . Cards { cardNo) . infotext 
sameFilter = False . 
same View = True 
30 returnCode * SHOWVISW 

Me. Hide 
Case actMOVIE 

'show a movie list 
Animate "Select", 0 
35 15 current > homeCARD Then 

•the view ia filter) is changing 
currView(currDomain) * Cards < cardNo ). infotext 
viewFilter • Cards (cardNo) . actionData 
sameView = False 
sameFilter « False 

40 Else 

'the category is changing 

currFilter.currDomain: - ": - k Cards i cardNo >. infotext 

l^ZllL^V^^ " c "-<«rdKc,. actionData 
same view = True 

45 sameFilter * False 

Er.c If 

Set views ( cur r Domain) = listFrm ( currDomain , 
returnCode - SHOWVir* currjoniai.il 
Me. Hide 
Case actSTCRE 
50 'show a list of stcres 
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Animate "Select", 0 

Setlnfo "Choose a stor TURQUOISE 

SetStatus -Shopping". greyCOLOR 
s sameFilter * False 

filters (currDomain) » -store- 
Set views ( cur rDoma in) - listFrm (currDomain) 

retumCode = SHOWVIEW 

Me. Hide ■ \ 

Case actDEPT 
10 'show products from a department 

Animate "Select" , 0 

SetStatus "Shopping. " & Cards icardNo. . infotext. greyCOLOR 
sameFilcer = False 
filters (currDomain) * -dept" 
userString = Cards ( car dNo ). name 
Set views! cur rDoma in ) = listFrm ( currDomaxn ) 
returr.Code » SHOW/IBV 
Me. Hide 
Case shcrtTWIEW 

'Show last TV schedule or list 
20 Animate "Select - . 0 

currDomain = TV 

If views i currDomain) Is Nothing Then 

Set views (currDoma in) - frmCommg 
End If 

sameFilter = True 
returnCode = SHOWVIEW 
Me. Hide 
Case shortMWTEW 

•Show lat mcvie list 
Animate "Select". 0 
30 currDoma in ■ MCVIE 

If views (currDoma in) Is Nothing Then 

Set views (cur rDoma in) = listFrm ( cur r Do main) 
End If 

sameFilter * True 
retumCode = SHOWVIEW 
Me. Hide 
Case shortSFVIEW 

•Show last shopping view 
Animate "Select". 0 
currDoma in = SHOP 
40 If views (currDoma in) Is Nothing Then 

Set views (currDomain) = listFrm (currDoma in) 
End If 

sameFilter » True 
returnCode =• SHOWVIEW 
Me. Hide 
Case shortTVNOW 

•show all TV shows on now 

currFi 1 ter 1 currDomain > = "All Categories" 

currView: currDomain) » "TV 6:30pm : " 'obviously, this would be the current 

time 

SO Animate "Select". 0 
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currDomain « TV 

f ilters (currDomain) » " " 

sameFilter » raise 

s aire View « True 

Set views (cur rDomain* = listFrrr.tcurrDomair. > 

returnCode ■ SHOWVIZW 

Me. Hide 
Case actKEYS 

'Only for development, wouldn • t' stay 

SetKeys Cards (cardNo ). act lonData 

SetStatus Cards (cardNo) . infotext. itemCOLOF. 

current = homeCARD 

DisplayCard current 
Case actTA3S 

'only for development 

ToggleTabs 
Case Else 

MsgBox "Bad action code for card - & Cards { cardNo) 
Stop 
End 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
•do button navigation 
Dim n As Integer 

Dim last As Integer, Sel As Integer 
n = Cards (current ) .NI terns 
last = Cards (current ). selected 
If last » 0 Then Exit Sub 

If direct = -Right" Then 
'move right with wrap around 
If last = n Then 
Sel « 1 

Else 

Sel * last «• 1 
End If 

Elself direct = "Left" Then 
'move left with wrap around 
If last = 1 Then 
Sel = n 

Else 

Sel = last - 1 
End If 

Elself direct = "Up" Then 
'move up. no wrap around 
If last > MAXCO-S Then 

Sel = last - MAXCOwS 

Else 

Sel » last 
End If 

Elself direct » ■Down" Then 
•move down, no wrap around 
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If las: <= n • MAXCOLS Then 
Sel « iasc - KAXCOLS 

Else 

5 Sel « last 

End If 
Else 

MsgBox "Bad Direction' 
End 
End If 

10 \ 
Cards (current i . selected = Sei 
CpdateSei 

End Sub 

1S Sub DisplayCard (index) 

takes care of displaying menu on screen 

Dim depth As Integer * number of visible cards 

Dim i As Integer 'counter 

Dim ancestor As Integer 'card numbers 

20 current » index 

parent * Cards ( current ). parent 
depth = Cards (current ). level 



*hide cards after (in front of) current 
For i « MAXCARD To depth - 1 Step -1 

sspTitle { i ) . Visible - False 

sspCard( i > .Visible = False 
Next i 

•make sure previous tab names are correct and visible 

ancestor » current 

For i - depth - 1 To 1 Step -1 

ancestor = Cards (ancestor ). parent 

sspTitled) .Caption * Cards (ancestor ) .name 

sspCard ( i) . Visible = True 

sspTitle ii) .Visible = True 
Next i 



* show current card 

sspTitle (depth) . Caption « Cards ( current ). name 
sspCard(depth) .Visible = True 
sspTitle (depth) .Visible = True 



'show buttons on current card 
Display! terns 
End Sub 

45 

Sub Displayltems () 
'displays buttons on a card 
Dim Area As SSPanel 
Dim i As Integer 
Dim Dx , Dy , x. Y. w, h 
50 Dim NI terns As Integer 
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NI terns = Cards (current > .NItems 

5 Sec Area = sspCard (Cards < current I . level )' this is a pointer, not a copy 

'calculate size of button 
Ox • Area. Width • .9 / MAXCOLS 
Dy - Area. Height • .9 / MAXROWS 
w ■ 2x • .9 
If w > 3 0 Then w « 3 0 
10 h = !>/•. 9 \ 

If h > 20 Then h « 20 

ssp31ink3G. Visible « False 
sspBlinkBG. ZOrder 0 'bring to front 
"place and show each button 
For i » 1 To NI terns 
sspltemt i ) .width » w 
sspltem( i > .Height » h 

sspltem( i ) .Caption « Cards (Cards (current ). item ( i )). name 
If Cards (Cards (current J. item( i )) .acticnCode = actNONE Then 
'turn inactive buttons grey 
sspltero( i ) . BackColor « greyCOLOR 

Else 

sspltem(i) .BackColor » itemCOLOR 
End If 

x » Area. Left - . OS • Area. Width ♦ [i.ii - 1) Mod MAXCOLS 1 - .5) • Dx 
Y = Area. Top ♦ .05 • Area. Height ♦ { Int ( ( i - 1 ) / MAXCOLS) * .5> • Dy 
Centerltem ssplteir.( i ) , x, Y 
sspltern(i) .ZOrder 0 
sspltem(i) .Visible = True 
Next i 

'make blinker bigger than buttons 
CPlace 2. sspBlink3G. sspltem(l) 

'hide unused buttons 
For i = Nttems ♦ 1 To MAXITEM 

sspltemt i ) .Visible = False 
Next i 
UpdateSel 
End Sub 

Sub Forrr._Activate () 

* check for a return code from another form 
sspCont .Visible = False 
Select Case returnCode 
Case 3ACK 

If current < homeCARD Then current = lastCard 
SetStatus "Use arrows and select or use keypad.", greyCCLCR 
SisplayCard current 
UpdateSel 
Case SHORTCUT 

current « homeCARD 

SetStatus -Use arrows and select or use keypad.". greyCOLCR 
DisplayCard current 
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UpdateSel 
Case FILTER 

SetStacus "Use arrows and select or use keypad.", greyCCLOR 
I f current < homeCARD Then 
DisplayCard current 

Else 

lastCard = current 
Select Case currDomain 
Case TV 

DisplayCard filterCARD 
Case MOVIE 

DisplayCard mfiiterCARD 
Case SHOP 

DisplayCard current 
End Select 
End If 
UpdateSel 
Case COMING 

•to get from TV list view to schedule view 
Cards (current ) .selected » 2 
sameFilter « False 
Set views ( cur r Domain ) ■ frmComing 
returnCode = SHOWVIEW 
Me. Hide 
End Select 
End Sub 

Sub Form_KeyDown (KeyCode As Integer. Shift As Integer » 
Dim index As Integer 
Dim n As Integer 

Select Case KeyCode 
Case S_BACK 

•Go up in menu hierarchy 

Animate "Back". 0 
Case 3.HELP 

InvokeHelp 
Case B.FREVIEW 

userStation = 1 

userStart = fakeTime 

returnCode = TOTV 

Xe . Hide 
Case 3_SELECT 

Do button action 

But tonAct ion 
Case 3_RIGHT 

ChangeSel ( "Right") 
Case 3_I.EFT 

ChangeSel ("Left") 
Case 3_UP 

ChangeSel ( "Up" ) 
Case 3_DOWN 

ChangeSe 1 ( " Down " ) 
Case 3_ PAGEUP 
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Case 3_ PAGEDOWN 

•use numeric Key pad to choose a button directly, without navigation 
Case 3_1 

If Cards (current ) .NItems > 0 Then 
Cards (current ). selected ■ 1 
UpdateSel 
ButtonAction 
End If 

Case 3_2 ^ 
If Cards (current NItems > 1 Then 
Cards (current •. selected = 2 
UpdateSel 
ButtonAction 
End If 

IS Case B_3 

If Cards (current J .NItems > 2 Then 
Cards (current J . selected » 3 
UpdateSel 
ButtonAction 
End If 
Case B_4 

If Cards (current ) .NItems > 3 Then 
Cards (current ). selected « 4 
UpdateSel 
ButtonAction 
2S End If 

Case B_5 

If Cards (current ). NItems > 4 Then 
Cards ( current ). selected = 5 
UpdateSel 
ButtonAction 
End If 
Case B_6 

If Cards (current ). NItems > 5 Then 
Cards (current) .selected » 5 
UpdateSel 
3S ButtonAction 
End If 
Case B_ 7 

If Cards (current) .NItems > 6 Then 
Cards (current) .selected = 7 
UpdateSel 
ButtonAction 
End If 
Case B_8 

If Cards (current) .NItems > 7 Then 
Cards (current ). selected « B 
45 UpdateSel 

ButtonAction 
End If 
Case B_9 

If Cards (current) .NItems > 8 Then 
Cards (current) .selected » 9 
UpdateSel 
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End It 
Case 3_D 

curren: ■ hoir.eCARD 

OisplayCard current: 
Case Asc < "Q* ) 

End 
End Select 
End 3-b 

Sue Form_load ( ) 

*sec fonts and colors 

sspCard(C) .BackColor = backgroundCOLCR 
sspTitie(O) .SackCoicr * backgrouncCCLOR 
sspItem(O) .BackColor - itemCOLOR 
sspBlinkBG.BackColcr = highlight COLOR 
sspItem(C) .FontSize = mediumFONT 
sspCard ( C ) . For.tSize ■ mediumFONT 
sspTitle ( C ) . Fcr.tSize - mediumFONT 
Me. BackColor » forrrCOLOR 
•fit into display area 

SizeAFcrm Me. cispTop. dispHeighc. dispLeft. cispWidch 

Me. Scale !0. 01 - ( 100, 100) 

'set global return code to default 

returnCcde » BACK 

read in menu hierarchy for r: lodex 
PcpulateCards 

load graphical objects 
LoadGraphics 

' set current card on screen 
D-spiayCard homeCARD 
End Sub 

Sub LoadGraphics ( ) 

Dim i As Integer counter 
Dim tabHeight 

■ load buttons 

For i = I To MAX IT EM 

load ssplcem(i) 
Next i 

'shape prototype card 

sspCard<0) .Top * sspZcemO) .Height 

sspCard(C) .Height » 100 - CARDS K I FT - sspCard ( C >. Top 
sspCarc(G) .Left = 2 • CAR23HIFT 
sspCard(C) .Width = 100 - 4 • CARDSKIFT 
' shape prototype cab 
sspTitletC) .AutoSize = False 

sspTitletOi .Width = sspCard I C ). Width • MAXTITLE - CARDSHIFT 

load and shape cards and cabs 
For i = 1 To MAXCAF.D 
load sspCard(i> 

sspCard { i i . Height « sspCardli - 1). Height - CARDSHIFT 
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sspCard(i) .Top = sspCard ( i - 1 ) . Top • CAF.DSKIFT 
sspCard ( i ) . ZOrder 
Load sspTitle ( i ) 

sspTitle(i) .Top = sspCard ! i ) . Top - sspTitle 0 J . Heigh- ♦ 
Select Case <i Mod MAXTITLE) 

•note: these cases are net flexible for different MAXTI 
Case 1 

sspTitlei i) .Left = sspCard ( i > . Left 
Case 2 

sspTitle t i >. Left = sspCard ( i ) . Let t - sspCard ( i ) . Wid 
L) .V 
Case 0 

SSpTi tie ( i ) .Left = sspCard ( i i . Left • sspCard ( i >. Wid 
End Select 
sspTitle ( i ) . ZOrder 
Next i ' 
End Sub 

Sue PopulateCards ( t 

'This subroutine reads in the card data from the 

•CARDFILE file defined as a constant. The cards 

'will be numbered 1 to the number cf lines (cards) 

'in the file. All special cards should come before 

'the home card (by convention), and are named as 

•constants in the declarations. Each card record 

'should have a level (integer) . iter, selected (integer:, 

'a name (string), an info string (string), and 

'an action code (integer). If the action code is greater 

'than actNEXT , one additional input (variant type; is read 

• for the card. 

Din last As Integer, parent As Integer 

Dim selected As Integer 

Dir. index As Integer. itemNo As Integer 
Dim level, title, text, action 
Dpen CARDFILE For Input As H 

'make dummy parent fcr top level 
index • 0 

Cards ( index) .name = "root- 
Cards ( index) . level « 0 
Cards ( index) .NI terns » 0 
While Not E0F(1) 

last » index 

index « index ♦ 1 

Input *1, level, selected, title, text, action 
Cards < index) . level = level 
Cards ( index) . selected = selected 
Cards i index) . name » title 
Cards ( index) . infotext « text 
Cards t index) . act icr.Code = action 
If action > acttfEXT Then 
Input <i. action 

Cards ( index \ .act ionData = action 
End If 
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Cards ( index > . Niters « D 'initialize number of items 
If Cards ( index) . level » Cards ( last ) . level ♦ 1 Then 

'Child of last 

parent * last 
Els If Cards ( index) . level <» Cards ( last ). 1 vel Then 

'Sibling or cousin, back up tc find parent 

Do While (Cards (index) . level < Cards ( last ). level ) 
•Find last sibling 
last = Cardsdasti .parent 

Loop 

parent = Cards ( last i . parent 
Else Skipped a level, text file is incorrect 

XsgBox -3ad level in text file." 

Stop 

End 
End If 

Cards < index) .parent = parent 
•Add self to parent's list of items 
itemNo » Cares (parent ). NI terns + 1 
Cards < parent ). NI terns « itemNo 
Cards ( parent }. item ( itemNo ) ■ index 
Cards ( index) . self = itemNo 
Wend 

Cards <C) .Niters = 1 
Close #1 
End Sub 

Sub tmrBlink_Timer () 

BlinkCcntrol .Visible = Not Bl inkControl . Visible 
End Sub 

Sub TcggleTabs ( ) 

•toggles offset of tab placement; development only 
Dim i As Integer 
Static offset 
If offset =3.5 Then 

offset = 2 
Else 

offset =3.5 
End If 

Tor i = 1 To 9 

sspTitled) .Top * sspCardt i I .Top - sspTi tie ( C J. Height 
Next i 
End Sub 

Sub VpcateSel ' ) 

•put blinking highlight in correct location, update info bar 
Dim i As Integer 

Dim x, V 

Dim S As SSPanel 
Dim text As String 
Dim color 

51 inks top raise 'turn blinking off 
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i * Cards (current ). selected 

If i > 0 Then 'something is selected 

Set S = sspltem(i) 'S is pointer to button 

• find c nter of button 

x * S.Left ♦ S. Width / 2 

Y « S.Top ♦ S.Hexght / 2 

•put blinker behind button 

Centerltem sspBlink3G. x, Y 

'resume blinking 

Bi-nkStart sspBiinkBG, True 
End Z f 

text = Cards {.Cards (current) . item (Cards • current > .selected) ) . ir.f otext 
color = sspItenMCards (current ) .selected) .3ackColcr 
Setlnfo text, color 
Er.c Sub 

Sub Zoom <n As Integer, C As Ccntrol, Dest As Control) 
ar.irr.ates control C changing size to control Dest 
Dim i As Integer, j As Integer 
Dim dl . dw. dt . dh 
dl = (Dest. Left - C.Left) / n 
dw * (Dest. Width - C. Width) / n 
dt = (Dest. Top - C.Top) / n 
dh = (Dest. Height - C. Height) / n 
C.ZOrder 

C.AutoSize * False 
For i = 1 To n 

C.Move C.Left - dl. C.Top «• dt , C. Width ♦ dw. c Height ♦ dh 
C. Refresh 
Next i 

End Sub - - - - 

'*=««»■ SELECT form code = = 

'This form is another attempt at alphabetic input that allows oniy valid ir.put. 

It relies on the TV' titles database which has two tables. The reference table is 
used first 

and contains a count of all items starting with each letter of the alphabet or 
with a 

symbol or number. The user is first presented with a list of possible starting 
letters 

(each item in the first on-screen list may have several letters in it) . Cnce a 
starting 

letter is chosen, a snapshot is made of matching entries frcm the table of titles. 
^Each list the user sees has only valid choices for the next letter, or fuii titles 

a particular title is distinguished from all others by the letters chosen so far. 
The best way to understand is to see the form in action before reading the code. 
The code could easily be modified to work with other data such as lists of movies 
etc . 

note: the non-proportional font used in the itemSoxes is Courier New 
Option Explicit 

Sir. SB As database the full database 

D-.t. list(lCCC) As String 'the list of selection strings 
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Dim leafUOGO! As Integer 'true if nth item is a leaf, false otherwise 
Dir. list End As Integer 'number of last element in list 
nr. currPrefix As String 'the letters chosen so far 

Dir. initialList As Integer 'boolean 'true if this list has multiple letters pe 
Dim 21mkControl As Control 'not used, currently no blinking object 
Dir. itemSelected As Integer 'from 1 to MAXDISPLAY 
Dir. locSelected As Integer 'from 1 to MAXLOC 

Dir. rowOffset * difference between tops of two consecutive reduced items 

database \ 
Dir allData As snapshot 
Dim filterData As snapshot 

rim marker (1 GO As String 'bookmarks of each MAXDISPLAY items 
Dim locStart (IOC) As Integer ' r Item index for start of locator 

•display parameters 

Const MAXDISPLAY = 6 'Number of items in close up 
Dim MAX IT EM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrltemiMAXDISPLAY) As Integer 'which rltems are in the current displ 

Const GAP * 10 'space around lists 

Const EXTRA = 70 'room for longer programs 

Const reducedEXTRA * 2 0 'room for longer programs in reduced rep 

Const T = 50 

Ccnst H = 1000 - 2 * T 

Const locL » 30 • for reduced list 

Const locw * 10C 

Const dispL » locW * 2 * locL 'for display list 
Const dispW = 1C0C - dispL - locL 

Sub BimkStart (C As Control, vis) 

Set 91inkControl = C 

BlinkControl .Visible = vis 

tmrB 1 ink . Enabled = True 
End Sub 

Sub 3 links top (vis J 

tr.rBl ink . Enabled « False 

If 31inkControl Is Nothing Then *do nothing 
Else 

31inkControl .Visible = True 
End If 

Set BlinkControl = Nothing 
End Sub 

Sub ChangeLoc (direct As String) 
page up or down with the locator 
Select Case direct 
Case "Up" 

If locSelected > 1 Then 

locSelected = iocSelected - 1 
RedcDisplay 
End I f 
Case "Down" 
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If locS lected < MAXLOC Then 

locSelected - locSelect d - 1 
RedoDisplay 
2nd If 
End Select 
End Sub 



Sue ChangeSel (direct As String) 
'Perform list navigation 

Select Case direct 

Case "Up* 

If itemSelected > 1 Then 

'move up within items currently displayed 
itemSelected » itemSeiectec - 1 

selector. Top * itemBox ( itemSelected) .Top - GAP 

rltem(O) .Top = locator. Top * rowOffset • (itemSelected - l) 

Setltemlnf o 
Elself locSelected > 1 Then 
■display previous section of the list 

itemSelected « MAXDISPLAY 

locSelected « locSelected - 1 

RedoDisplay 
End :f 
Case 'Down* 

If itemSelected < MAXDI SPLAY Then 

'move down within items currently displayed 

•do not move to select an empty item 

If (locSelected - 1) • MAXDI SPLAY ♦ itemSelected < MAXITEK Then 
itemSelected = itemSelected ♦ 1 
selector. Top = itemBox ( itemSelected! .Top - GAP 
rltem(O) .Top = locator. Top ♦ rowOffset * (itemSelected - 1 « 
Setltemlnfo 

End If 

Elself locSelected < MAXLOC Then 
'display next section of list 
itemSelected = l 
locSelected » locSelected ♦ 1 
RedoDisplay 
End If 
End Select 
End Sub 



Sub OoSelect () 

finish with leaf value or create a new list based on user's choice of prefi> 
Dim index As Integer 
Dim count As Integer 
Dim i As Integer 
Dim nextChar As String 
Dim looxing As Integer 'boolean 
Dim title As String 

index * locStart (locSelected) - itemSelected - 1 'index in lisc of i-em 
selected 

If leaf < index » Then 
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•selection made; show n xt view 
title » renov Anper sand ( list ( index ) ) 

f ilterData.FindFirst "SelectTitle = & title & 

I f f ilterData. NoMatch Then 

Do 'prompt for differ nt title until found 
note: this should never happen, it's only in the list if it's in the 

database 

title = InputBox ( title & " not found. Enter new title:", title- 

f ilterData. FindFirst •SelectTitle * « title & 

Loop Until Not f ilterData .NoMatch \ 
End If 

userString » f ilterData { "FullTi tie " ) 
Set views (TV) » frmWeek 
same-ilter "False 
returnCode = SKOWVIEW v 
Me . Hide 

Else 

' indicate to user that something is happening 
itemBox ( icemSelected) .3ackColor = greyCOLOR 
Setlnfo 'Loading data, please wait,..". greyCOLOR 
20 Dc Events 

i » Len ( 1 i s t ( index ) ) 

currPrefix » 

If initialList Then 

currPrefix = list (index) 

Else 

•remove underline formatting (&> from prefix 
If i > 2 Then currPrefix « Left {list ( index) , i - 2) 
currPrefix » currPrefix & Right ( list ( index) , 1) 
v End If 

SetStatus "TV Titles starting with " & currPrefix. greyCOLOR 
30 'construct new list 

If initialList Then 

•list items are special, not prefixes 
If index « 1 Then 

•Symbol or Number selected 
3S initialList ■ False 

f ilterData. Filter « 'SelectTitle < 'A* ■ 
currPrefix » 

Else 

'a list of letters selected 
listEnd = 0 

40 For i = 1 To Len (currPrefix) 

'strip out the letters (ignore commas) to make a new list 
If Mid(currPref ix. i. 1) >» "A" Then 
listEnd « listEnd ♦ 1 

list (listEnd) * & Mid (currPrefix. i. 1) 

leaf (i J = False 
End If 
Next i 
End If 

Else 

'ref liter data to match the new prefix 
50 f ilterData. Filter = "SelectTitle like '" u currPrefix * •••« 
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End If 

data assumed to be already sorted 
If Noc initiallist Then 

'still need :o creac new list from data 

Set filterData « filterData .CreateSnapshot ( ) 
f i 1 1 er Da t a . Mo veF i r s t 
listEnd = 0 

Tor i « Asc(- ■) To Asc(-Z-) -space, punctuation, and le-t-s 
'note: should be fixed up by noc trying eWry smcle one. go sc-av 
next do item's char * g 

count » C : looking ■ True 
While Not filterData. EOF And looking 
, nextChar = Mid ( f il terData < "SelectTi tie M . Len (curr Prefix j - 1 

If nextChar * Chrti; Or nextChar * LCase ( Chr [ 1 3 J Then 
count = count * 1 
filterData .MoveNext 

Else 

looking = False 
End If 

Wend 

Select Case count 

Case 0 'do not add to list 

Case 1 'make a leaf entry 

f ilterData. Mo vePrevious 

listEnd a listEnd ♦ 1 

list(listEnd) = f ixAmper sand ( { f il terDa ta ( " SelectTi 1 1 e " ; * i 
leaf (listEnd) * True 
f il terDa ta .Mo veNext 
Case Else 'make a non-leaf entry 
f ilterData . MovePrevious 
listEnd = listEnd + 1 

list(listEnd) - currPrefix & * chr ( i ) -underline new char 

different ' n ° te: m *" linin * is ' us - mechanism for emphasizing what 

leaf (listEnd) = False 
f il terData . MoveNext 
End Select 
Next i 

If f ilterData. RecordCount <= MAXDISPLAY Then 

•redo the list to have just leaves in it. if they all fit in one 



display 



listEnd m 0 
f ilterData .MoveFirst 
While Not f ilterData. EOF 
listEnd = listEnd - 1 

listilisrEnd) = f ixAmpersar.d< ( f ilterData ( "SelectTitle* )) ) 
leaf (listEnd) = True 
f ilterData .MoveNext 

Wend 
End Z f 
End It- 
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display the. newly created list 

i :;.SoxCic«nSeiected).BacicCclor = itemCOLOR "restore itemBox color 

ir.-tiallist • False 
: f listEnd > 1 Then 
5 NewList 
Hi se 

•automatically select item if only one in list 
IccSelected = 1 
icemSelected » 1 
10 : Deselect 

End If 
End If 
End Sub 
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Sub Forr.^Accivace {) 
'always begin with initial list 
LoadCata 
NewList 
End Sub 

Sub Fcrr._KeyDovn (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case Asc i m Q m ) 
End 

CaSe -nocifdo we want ability to back up one level from a particular choice in 
the list? c ^ ^ b_BACK go back one list then back to menu after another press. 
retumCode * BACK 
Me. Hide 
Case B_HEL? 
30 InvokeHelp 
Case B_PREVIEW 
Case 3_SEL£CT 

DoSelect 
Case B_UP 

ChangeSel CUp*) 
55 Case B.DOWN 

ChangeSel ( " Down " J 
Case B — RIGHT 
Case B_LEFT 
Case B_PAGEUP 
40 ChangeLoc CUp") 

Case B_ PAGEDOWN 

ChangeLoc ("Down-) 
Case 3_FILTER 
Case B_0 

returnCode = SHORTCUT 
45 Me. Hide 

End Select 
End Sub 
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Sub r srm_Load ( ) 

D-rr. i As Integer 'counter 



52 



EP0 735 749 A2 



Dim itemRoom 



10 



15 



20 
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35 



•set colors and fonts 

itemBox (C ) . FontSize » largeFONT 

rightArrcw(O) .FontSize * largeFONT 

r Item ( C) . BackColor = itemCOLOR 

selector. FillColor « highlightCOLOR 

displayList .FillColor * backgroundCCLOR 

locator. FillColor * backgrour.dCCLOR \ 

itemfiox(O) .SacJcColor * itemCOLOR 

rightArrow(O) .BackColor » itemCOLOR 

shpSlot . BorderColor = slotCOLOR 

•size and place the objects to the screen 

SizeAForm Me. DispTop, DispHeight, DispLert. DispWidth 

Me. Scale (0. 0)-<lC00, 1000) 

SizeAControl locator, T - GAP, H 

SizeAControl shpSlot, 7, H, locL 

SizeAControl displayList, T - GAP 

locator .ZOrder 

shpSlot . ZOrder 
rltenMC ) . ZOrder 

itemRoom ■ H / MAXDI SPLAY 
SizeAControl itemBox(O), T ♦ ( 
2 * EXTRA 

SizeAControl lef tArrow < 0 ) . T ♦ (.5 
SizeAControl rightArrow(0 ) , T * (.5 
EXTRA, EXTRA 

SizeAControl selector. T, itemRoom +> GAP, dispL. dispW 

selector. ZOrder 

For 1 * 1 To MAXDI SPLAY 

Load itemBox(i) 

itemBoxi i) .Visible » False 

itemBox(i) .Top * itemBox(O) .Top ♦ {i - 1) • itemRoom 
Load rightArrow(i ) 

rightArrow(i) .Top = itemflox < i ) . Top 
Next i 
End Sub 



GAP. locL - GAP. locW * 2 * GAP 
reducedEXTRA, locW - 2 • reducedEXTRA 
H ♦ GAP. dispL, dispW 



.5 * GAP), itemRoom - GAP , dispL * EXTRA. dispW 

* GAP), itemRoom - GAP. dispL, EXTRA 
• GAP) , itemRoom - GAP. dispL - dispW - 
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Sub LoadData ( ) 

Dim re f Snap As snapshot 

Const MAXTOG ETHER « MAXDISPLAY 'number of letter allowed in one itemBox 
Dim together 

• fill initial selection list 
listEnd « 0 

Set 03 « Oper.Database(TVTitles) 

Set ailData « DB . CreateSnapshot ( "Ti t les • ) 

'create initial list 

Set refSnap = DB . CreateSnapshot ( " Reference** ) 
refSnap.MoveFirst 

together - MAXTOG ETHER 'indicate need for new item 
While Not ref Snap . EOF 

Select Case re f Snap ( "Number " ) 
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Case 0 

•do not add to list 
Case 1 

'make a leaf entry 

listEnd = listEnd ♦ 1 

alXData.FindFirst "SelectTitle like ■ & ref Snap <" Letter" > & 
list (listEr.d) = allData < "SelectTitle" ) 
leaf (listEnd) = True 
together » MAXTOG ETHER 
Case Else 

Zi refSnap! "Letter") * Then 

listEnd • listEnd ♦ 1 

list { listEnd) » -Symbol or Number* 

together » MAXTOG ETHER 

•note: DoSelect relies on this entry being the first list item 

Else 

If together >= MAXTOG ETHER Then 
listEnd = listEnd ♦ 1 
list (listEr.d) » ref Snap ( "Letter ' ) 
together « 1 

Else 

list (listEnd) = list ( listEnd) & ■ , - & ref Snap ( "Letter • ) 
together = together ♦ 1 
End If 
End If 

leaf (listEnd) * False 
End Select 
re f Snap . MoveNext 

Wend 

Set filterData = allData 
initiallist *■ True 
End Sub 

Sub NewList { ) 

•remakes the display for a new list 

•note: should itemSelected be initialized to something other than 1? 
Dim i As Integer 'counter 

Dim section As Integer 'count the number of locator locations 
Dim msg As String 

'clear captions 

For i « 1 To MAXDI SPLAY 

itemBox(i) .Caption » " " 

Next i 

For i = 1 To KAXITEM 

Unload rltem(i) 
:;ext i 

MAX ITEM = listEnd ' nurber of items in list 

load the reduced item shapes and size relative to MAXITEM 
rcwOffset = (H - rlter.(O) .Height* / MAXITEM 

Zi rowOffset > r Item ( 0 ). Height ♦ GAP Then rowOf f set » rltem(O) .Height * GA? 
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rltenWO) .Visible ■ False 
rltem(O) .Top = T 

rltem(O) .Left « locL * reducedEXTRA 
5 rltem{0) .width « locW - 2 • reducedEXTRA 

rlt m(0) .BackColor n iteroCOLOR 
filterData.MoveFirst 
size and place the item shapes 
and set section bookmarks 
10 section = 0* • number of locator' locations 

For i = 1 To MAX ITEM 
Load rltemli) 

rltem(i) .Top = t ♦ (• - u * rowOffset 

It Hi - 1) Mod MAXDI SPLAY ) a 0 Then 

'begin a new locator location 

/5 section * section * 1 

locStart (section) = i 
End r f 

If Not leaf ( i J Then 

rrtem(i) .Width » rl tem< i ). Width * reducedEXTRA 
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End If 

rltem(i) .ZOrder 

rltem(i) .Visible * True 
Next i 

MAXLOC » section 

locStart (section ♦ 1) . MAXITEM ♦ 1 

'set length of minselector 
'use rltem(O) as mini selector 
rltem(O) .Left = locL - GAP 
rltem(C) .Width = locW * 2 • GAP 

initialize selector and locator 
itemSelected « 1 
locSelected » 1 

rltem(O) .BackColor * highlightCOLOR 

35 * set th « captions in the itemBoxes 

RedoDisplay 
End Sub 
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Sub RedoDisplay ( ) 

: re'o?^on P i™ *" itemB ° XM " correspond to items in locator 

re^os^xon locator, selector and set item info in info box 

2im last As Integer •mrr.ber of last item m display 
^im i as Integer 'counter 

2im index As Integer 'index of item in list 



index = locStart ( locSelected) 
For i = 1 To MAXDI SPLAY 

If index > MAX IT EM Then 
'hide empty itemSox 
so itemBcx(i) .Caption * 

itemBox(i) .Visible = False 
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rightArrow( i) .visible * False 

Else 

icemBox(i) .Caption « lisc(ind x) 

If Not leaf (index) Then 

'show right arrow and put in all caps 
rightArrow* i ) .Visible * True 
itemBoxli) .Caption = UCase I list ( index) ) 

Else 

rightArrow(i) .Visible » False 
End If 

itemBox(i) .Visible « True 
last » i 'remember last valid selection 
index = index ♦ 1 
End If 
Next i 

•Do not allow blank to be selected 

If itemSelected > last Then " 

itemSelected » last 
End If 

•fix the rest of the display 

displayList. Height = H ♦ 2 • GAP - (H / MAXDISPLAY • (MAXDI SPLAY 
selector. Top » itemBox < itemSelected) . Top - GA? 
locator. Top = T * rowOffset • ( locStart ( locSelected) - 1) 
locator .Height = last • rowOffset ♦ rltemfO) .Height - rowOffset 
rlteir.(O) .Top = locator. Top ♦ rowOffset • (itemSelected - 1) 
rlteir. (0) .Visible * True 
Setlter.Inf o 
End Sub 

Function removeAmpersand (oldText As String) As String 
•for each double ampersand, remove one of them 

Dim text As String 

Dim newText As String 

Dim i As Integer 

text * oldText 

newText * " " 

While InStr(text, -if) 

i = InStr(text, •«-) 

newText « newText & Left (text, i> 

text = Right (text. Len(text) - (i * 1)) 

Wend 

removeAmpersand - newText & text 
End Function 

Sue Setltemlnfo () 

•put the relevant info for current item into info box 
Dim msg As String 
Dim index As Integer 
Dim F As snapshot 

If Me. Visible Then 



56 



I 



EP 0 735 749 A2 



10 



15 



45 



index » locStart { locSelected) - itemSelected - 1 
If leaf (index) Then 

'get full title from data 

S t F * filterData 

F.Fir.cFirst -SelectTitle = k list (index) & 

msg = F< "FullTitie") 

Else 



End 



msg = -Titles beginning with ' " & list: index) « 



Setlnfo msg, < itemBox < i temSelected) . BackCc* 
End Zf 
End Sub 

Sub tnur3Iink_Timer () 



31inkControl. Visible - Not Si inkContro 1 . Visible 
End Sub 

•-•»««« START form code 

'This startup form allows the developer to choose display mode 
20 . <e " her for ?C ' TV- °* PC for making screen prints) 

' nen scarts the actual program by calling Mam 
Option Explicit 

Sub Form_Load < ) 

returnCode « STARTUP 
2$ End Sub 

Sub mmiButtcn_Click {) 
displayMode « "mini" 
Unload Me 
Main 
30 End Sub 

Sub PCbutton_Click () 

displayMode « "PC* 

Unload Me 
3S Main 
End Sub 

Sub TVbutton_Click < > 
displayMode » "TV" 
Unload Me 
40 Main 
End Sub 



' == = = = = TV form code 

■This fern, pretends to show a TV program or record it. if it is not currently on 
Option Explicit 
Const GA? = 700 

Sub Form_Activate () 
50 Di ™ msg As String 
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Dim OB As database 
Dim Programs As cable 
Din-. startTime 
Dim re f Snap As snapshot 
Dim refDate 

Dim startTS. finishTS. nowTS 
Set DB = OpenDa t abase (TVD3) 

Set ref Snap - DB . CreateSnapshot r" Ref erence * * 
refSnap.FindFirst "Name = 'Date" 
refDate = DateValue ( ref Snap ( "Data" ) ) 
Set Programs * DB . OpenTable ( " Programs - ) 
Prcgrar.s . Index = "ID" 

Frograms . Seek -»•, userStation, userStart 
'note: ought to check that userStation is valid 
If Programs .NoMatch Then 

'simulate showing whatever is currently on userStation 
nowTS = DateDif f ( "n" . refDate, fakeToday ♦ fakeTimei \ 30 
Set ref Snap * Programs .CreateSnapshot ( ) 
refSnap.FindFirst "Station = - 6 Str (userStation) 
ref Snap. FindNext "FinishTS > " & Str(nowTS) 
msg » "You are watching " 
msg = msg & Chr(13) & Format ( ref Snap ( "Title - ) ) 
msg = msg & • on " & StationString ( ref Snap ( "Station" ) ) 
msg » msg & Chr(13) & Format (ref Snap ( "Start ") , "h:mm AM/PM") 
msg » msg & " to " L Format (ref Snap < "Finish" ) . "h:mm AM/PM") 

25 Else 

"decide if the program is on. record if it's not 
startTS - DateDif f < "n" . refDate. Programs ( "Start •) > \ 30 
finishTS » DateDi f f ( - n" . refDate. Programs ( "Finish" ) I \ 30 
nowTS * DateDif f ( "n" . refDate. fakeToday * fakeTime) \ 30 
•nowTS would be calculated to work in real time 
If startTS <= nowTS And finishTS >» nowTS Then 
msg = "You are watching " 

Else 

msg = "The VCR is set to record " 
End If 

35 msg * msg & Chr(13) k Format ( Programs ( "Title" > ) 

msg ■ msg 6 " on " 6 StationString ( Programs ( "Station" ) ) 
msg = msg & Chr(13) & Format ( Programs <" Start" ) . "h;mm AM/PM") 
msg = msg U ' to • & Format ( Programs < "Finish" ) . *h:mm AM/PM") 
End If 

40 textArea .Caption = msg 

End Sub 

Sub Form_KeyDowr. (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case B_BACK 
45 returnCode * LASTVIEW 

'note: this is not appropriate if we came from menu (rolodex) 
Me. Hide 
Case B_0 

returnCode = SHORTCUT 
50 Me. Hide 
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Case Asc { "Q m ) 

End 
Case Els 

recurnCode » BACK 

Me. Hid 
End Select 
Cr.d Sub 



Sub Form^Load { ) 

textArea .Caption = 

text Area . FontSize = largeFON? 

SizeAFcrm Me, 0. ScrHeight, 0. ScrWidth 
End ^ eAC ° nCro1 textArea. GAP. ScrHeight - 2 • GAP , GAP, ScrWidth - 2 • GAP 



= = TV.GUIDE form code ------ 

General remarks: 

•l' T -h. M f™ rOCe H Ur ! Sta !" 6311 rClUng by showi "S th * Fra^e. loading 

• 1* -he forms, and chen showwj the rolodex menu. Control is tranferr.d trim 

-^roug!; 0 " ^ CUrrenC d0nain ' S VieW f0rm - Co^unicatxon between fern* is done 
•a variety of variables, since a for*', procedures are not accessible fron, outside. 
Option Explicit 

Global Declarations 



* database constants 
Global Const CARDFILE « -c:\pctv\db\cards2 txf 
Global Const MVDB = -c:\pctv\db\plots.mdb- 
Global Const SPDB « •c:\pctv\db\shopping.mdb- 
G.cbal Const TVDB » -c:\pctv\db\big.mdb- 
3$ Global Const TVTitles = "c:\pctv\db\titles.mdb- 

Const CATDB * - c : \pctv\db\cats .mdb" 
Dim typeTable As table ' TV type IDs 
Dim catTable As table • TV category IDs 
Dim statTable As table 'station IDs 
Global fakeToday 'keep the day constant 
™ G.ooal fakeTime 'keep the time conscant 

anrgrapMcs 1 ?^ ****** f ~ ^ « sire of font. 

Clobal newuser As Integer 'boolean 'when true, give extra helps 
45 Global ScrWidth, ScrHeight 

inside the P IrLe DlSPHel9hC ' mailable to for*, 



SO 



' Colors 

Global Const highlightCOLOR = &K6C80FF 'recish 
Global Const backgroundCO^OR = fcHBOFFFF 'yellow 
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Global Const iteraCOLOR « &HFFFFC0 'light blue 

Global Const formCOLOR = &HFF00OO 'dark blue 

Global Const whiteCOLOR » &H8O0OOOO5 "white 
Global Const greyCOLOR = &HCOC0C0 'grey 
Global Const blackCOLOR » &H0i 'black 
Global Const slotCOLOR « StHSOOOOOOS 'white 
Global Const borderCOLOR • fcHFFfc 'red 
Global Const divideCOLOR - &HFFFF& 'white 
Global ColorCO) "array filled in Main 

\ 

•font sizes 

Global Const small FONT =13.8 
Global Const mediumFONT = 18 
Global Const iargeFONT = 24 

•domain constants 
Global Ccnst MOVIE « 0 
Global Const TV « 1 
Global Const SHO? = 2 

array of list forms 
Global listFrmO) As Form 
Global TVlist As New frmList 
Global MOVlist As New frmList 
Glooal SHOPlist As New frmList 

Inter-Form Communication 

Global currDomain as Integer 'the current domain f ii t . r 

Global filters (3) As String 'array of query strings for current domain filter 

Global currFilter(3) As String ' text name of filter m . n . , or list _ which 

Global currView(3> As String 'text name of current view (use mainly .or lists which 

S2S views m Is Form 'array of current domain views (TV coming or TV schedule. 

«Sbi™JSSllfr As String 'the database filter needed to obtain the appropriate 

^•note: used only for movies at this time, would probably be expanded to array 
Global userString As String 'string chosen by user 
Global userMsg 'message string to display to user 
Global userStation 'a station selected by user 
Global userStart 'a time chosen by user 

Global sameFilter As Integer 'boolean 'true if need to ^filter data 
Global sameView As Integer 'boolean 'true if need to redo display 

'return codes determine which action to take on re-activate of frmFrame or frmDex 

Global recurnCode As Integer 

Global Const BACK * 0 

Global Const TOTV ■ 1 

Global Const LASTVIEW = 2 

Global Ccnst SHORTCUT « 3 

Global Const DONE = 4 
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Global Const FILTER • 5 
Global Const COMING » 6 
Global Const SHOWVIEW = 9 
Global Const ALPHA = 10 
Global Const PICK = 11 
Global Const STARTUP = 12 



Define Type Card 
for rolodex 



Global Const MAX ITEM = 9 'max number of buttons on a card 

Represents one index card as viewed on screen 
Type Card 

self As Integer 'iter, number of self on parenz 
level As Integer "number of cards away from root 
name As String 'text to appear on button/card 
incotext As String 'text for info bar 

actionCode As Integer 'code for action to take when chosen 
actionData As String 'extra info needed for action 
parent As Integer 'number of parent card 

NI terns As Integer 'number of buttons visible on card 

Item (MAXITEM) As Integer 'array of card pointers (one for each 
selected As Integer 'the number of the selected button 
End Type 

"Array of up to MAXCARDS index cards 



Global 


Const MAXCARDS * 1000 


Global 


Cards (MAXCARDS) As Card 


Remote Buttons 


assigned values in sub SetKeys 


Global 


B_BACK 


Global 


B_HELP 


Global 


B_PREVIEW 


Global 


B_UP 


Global 


B_DOWN 


Global 


B_LEFT 


Global 


B_RIGHT 


Global 


B — SELECT 


Global 


B_PAGEUP 


Global 


B_ PAGEDOWN 


Global 


3.1 


Global 


B_2 


Global 


B_3 


Global 


B.4 


Global 


B_5 


Global 


B_6 


Global 


B_7 


Global 


B_9 


Global 


B_9 
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Global B_C 
Global B_rIL?ER 



COLORS 

Global Const RED « &HFF& 
Global Const ORANGE = &H80FF& 
Global Const YELLOW = &HFFFF& 
10 Global Const GREEN = &H30FF60 

Global Const TURQUOISE = &HFFFFCC 
Global Const SLUE » &HFF000C 
Global Const VIOLET = &HFFOCFF 
Global Const WHITE = &HFFFFFF 
Global Const 3 LACK * &H0& 
Global Const GREY = &HC0CCCC 
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CONSTANTS FROM VISUAL BASIC FILES 



Fror. CONSTANT . TXT 



* Key Codes 

Global Const KEY.LBUTTON = St HI 

2S Global Const KEY_RBUTTON = &H2 

Global Const KEY_CANC£L « iH3 

Global Const KEY_MBUTTON * &H4 * NOT contiguous with L * RBUTTON 

Global Const KEY_BACK - &H3 

Global Const KEY_TAB * &H9 

Global Const KEYJZLEAR = fcHC 

30 Global Const KEY_RETURN = &HD 

Global Const KEY_SHIFT * fcHIO 

Global Const KEY_CONTROL = iHll 

Global Const KEY_MENU » &H12 

Global Const KEY_ PAUSE ■ iH13 

Global Const KEY_CAPITAL « &H14 

Global Const KEY_ ESCAPE * &H1B 

Global Const KEY — SPACE = &H20 

Global Const KEY.PRIOR - &H21 

Global Const KEY_NEXT = iH22 

Global Const KEY_END = UH22 

40 Global Const KEY_HOME » &H24 

Global Const KEY_LEFT = &H2 5 

Global Const KEY_UP - &H26 

Global Const KEY_RIGHT = &H27 

Global Const KEY_DOWN = &H28 

Global Const XEY_ SELECT = &H29 

Global Const XEY_ PRINT • &H2A 

Global Const XEY_EXECUTE = &H2B 

Global Const XEY_SNAPSHOT * &H2C 

Global Const KEY_ INSERT = &H2D 

Global Const XSY_DELETE * &H2E 

SO Global Const XEY_HEL? « &H2F 
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KEY_A thru KEY_Z are Che sam as their ASCII equivalents: 'A' thru *Z' 
KEY_C thru KEY_9 are the same as their ASCII equivalents: *0* thru '9' 



Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Globa 1 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Globai 
Global 



Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 



KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 



.MUMP ADO * &H60 
.NUMPAD1 « &H61 
.NUMPAD2 = &H62 
.NUMPAD3 a &H53 
.MUM PAD 4 » &K64 
.NUMPAD5 - &H65 
.NUMPAD6 a &H66 
.NUMPAD7 a &H67 
.NUMPAD8 a &H6 8 
.NUMPAD9 » *H6S 
.MULTIPLY ■ 4H6A 
.ADD = &H6B 
.SEPARATOR = &H6C 
.SUBTRACT = &H6D 
DECIMAL a &K6E 
DIVIDE = &K6F 
.Fl a 0 
F2 - &H71 
F3 « &H72 
&H7 3 
&H7 4 
4.H75 
&H7 6 
&H77 
&H78 
&H79 
Fll « &H7A 
F12 « &H7B 
&H7C 
&H7D 
&H7£ 
fcH7F 



F4 = 
F5 = 
F6 * 
F7 « 
F8 - 
F9 - 
F10 



.F13 
F14 

.F15 
.F16 



Global Const KEY_NUMLOCK « &H90 



Function CategoryString <typeCode As Integer, catCode As Integer! As Str 
creates user-reabable string for a TV program's category 
Dirt r.sg As String 



r.sg « 'Category: ■ 
' look up type code 
typeTable . Index = ■ ID" 
typeTable . Seek typeCode 
If typeTable .NoMatch Then 
r.sg a m sg & typeCode 

Else 

r.sg = msg & typeTable ( •Name" ) 
End If 

msg » msg & " . " 'all on one line, replaced: Chr(13> & "Subcategory: 
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• look up category code 
catTable. Index * " ID" 
catTabie.S ek " ■ " , catCode 
If cacTable.NoMatch Then 
msg = msg & cat Code 

Else 

msg « msg & catTable ( "Name - ) 
End If 

CategoryStr ing = msg 
Zr.a Function 

Sub CCcpy (Cfrom As Control. Cto As Control) 
'copies attributes of CFrom control to CTo 

Cto. Caption = Cfrom. Caption 

Cto.BackColor = Cfrom. BackCoior 

Cto. Top Cfrom. Top 

Cto. Height • Cfrom. Height 

Cto. Left « Cfrom. Left 

Cto. Width * Cfrom. Width 

Cto.FontSire = Cfrom. FontSize 
End Sub 



Sub Center It em (Item As Control, x, y) 
'centers a control around a point 

Item. Left * x - Item. Width / 2 

Item. Top Item. Height / 2 

End Sub 

Sub CPlace (extra. Cfrom As Control. Cto As Control) 

•place Cfrom in the sane place as Cto, with difference extra 

Cfrom. Top « Cto. Top - extra 

Cfrom. Left » Cto. Left - extra 

Cfrom. Height « Cto. Height ♦ 2 * extra 

Cfrom. Width ■ Cto. Width * 2 * extra 
End Sub 

Function DayString (d. length As String) As String 
•returns string for appropriate day of week based on date given 
and length specified 
Select Case Weekday (d) 
Case 1 

If length » "long* Then 
DayString = •Sunday" 

Else 

DayString * "Sun" 
End If 
Case 2 

If length = "long" Then 

DayString ■■ "Monday" 

Else 

DayString « "Mon" 
End If 
Case 3 

If length = "long" Then 
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DayString = •Tuesday- 
Else 

DayString - "Tue" 
End If 
Case 4 

If length » -long- Then 

DayString « "Wednesday" 

Else 

DayString » "Wed" 
End If 
Case 5 

If length = "long* Then 

DayString = "Thursday- 
Else 

DayString = "Thur" 
End If 
Case 6 

If length = "long" Then 

DayString « "Friday- 
Else 

DayString » "Fri" 
End If 
Case 7 

If length * "long- Then 

DayString » " Saturday - 

Else 

DayString » "Sat" 
End If 
End Select 
End Function 



Function f ixAmpersand (text As String) 

'put in a "&&" for every "&" so ampersand will print instead of ferret an under 1 
Dim i As Integer 
Dim oldText As String 
Dim newText As String 



newText ■ ■ " 

oldText = text 

While InStrt oldText. *&") 
i * instr (oldText. "fc") 
newText » Left (oldText , i - 1) & "ii" 
oldText • Right (oldText. Len(cldText) - i) 

Wend 

f ixAmpersand = newText & oldText 
End Function 



Sub InvokeKelp ( ) 

•add parameter for current location or give each fcrr. a locai InvokeHelp 
•would be specialized for each view, probably not each button 

TellUser "Press Help (?) again for general help, or press any button on the 
remote for help with that button." 

Select Case returnCode 

Case B.KELP 
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TellUser "General Kelp:' 
Case 3_ PREVIEW 

TellUs r "Use the Preview button to see a video preview ot th highl-gnted 
selection . " 

Case 3_BACK 

TellUser "Use the Back button to back up to the previous screen. - 
Case KEY_ESCA?E 

TellUser -Use the Shortcut key tc get to the shortcut buttons.' 
Case B_SELECT 

10 TellUser 'Use th« select button to choose a highlighted option.' 

Case Else 

TellUser "This help screen is not written yet." 
End Select 
End Sub 

^ Sub Mam I) 

Dir. i As Integer 
Dim DB As database 
Set DB = OpenDatabase(CATDB) 
Set typeCable * DB . OpenTabl e { " Type " ) 
20 Sec cacTable = DB.OpenTable ( 'Category- ) 

Set DB • OpenDat abase (TVDB) 
Set statTable ■ DB . OpenTable ( " Stations " ) 
SetKeys displayMode 
•set different list forms 
Set liscFrm(TV) = TVlist 
Set listFrm (MOVIE) = MOVlist 
Set listFrm ( SHOP) = SHOPlist 
•set color array 

Color (0) » &HBFBFC0 'teal green 
Color (1) * &HFFFF80 'light blue 
30 Color<2> = &HFFCCFF 'light pink 

Color (3 > = &HFF8CFF 'dark pink 
Color (4 ) = &HS0COFF 'medium orange 
Color (5) = &HC0FFC0 'lightest green 
Color (6) ■ &KFF8080 'royal blue 
Color (8 > « &HFFC0C0 ' lavendar 
Color (7) m &HC0C0& 'ochre 
'set date and time 
fakeToday = CVDate i ' 6 / 12 /94 " ) 
fakeTime = CVDate('6:30 PM" ) 

40 newUser = True 

start up the forms 
f rrr.Frarr.e .Show 
DcEvents 

load all fonr.s here 
Lead frmDex 
Lead frmAlpha 
Load frmTV 
Load frmMsg 
Movie f orrr.s 
SO curr Domain = MOVIE 



3S 
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viewFilter « "Year >= 1993" 
currViewtMOVIE) = -Recent Movies' 
cur r Filter (MOVIE ) * ": All Categories' 
5 SetStatus "Movi s". greyCOLOR 

Load lis tFrm (MOVIE) 
'Shopping forms 
currDomain * SHOP 
filters (SKOF; ■ ■ • 

SetStatus "Shopping, compact disks". greyCOLOR 
10 load listFrm(SHOP) 

* TV forms 

currFilter (TV) * "Basketball" 
currDomain = TV 
filters(TV) = "Category » 39" 
is userString » "Nova" 

'Load frmWeek 
•Load listFrr.(TV) 
•Load frmComing 
'Load frmWkday 
'Load frmSeiect 
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•show main menu 

SetStatus "Use arrows and select or use keypad.". greyCOLOR 
f rmDex . Show 
End Sub 

Function Overlap (beginTS, endTS) As String 

'create query string to look for TV programs in the range between 
' and including beginTS and endTS 

Overlap * "(StartTS <» " & Str (endTS) & " And FinishTS >= " & Str t beginTS > 
End Function 



Sub Setlnfo (text As String, Color) 
•update the info box text and color 
Dim s As SSPanel 

Set s = f rr-Jrame ! ssplnf o 'works as long as form is loaded 
3S s.BackColor » Color 

s. Caption = text 
End Sub 

Sub SetKeys (mode As String) 

•Set the keymappings for keyboard or "remote" 
40 B_i = KEY.NUMPAD7 

B_2 = KEY_NTJMPAD8 

B_3 = KEY.NUMPAD9 

B_4 • K EY _NUM PAD 4 

S_5 « KEY_NUMPAD5 
45 3_6 » KEY_rTJMPAD6 

3_" = KEY_NUMPAD1 

3_8 » KEY_N~JMPAD2 

3_9 = KEY_rrJMPAD3 

If mode = "TV" Then 

'use keypad for all buttons (except 1-9* 
50 B_SACK « KEY_SUBTRACT 
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e_HEL? ■ 13 'I don't know what the name of this key is 
9_ PREVIEW » KEY.ADD 
e_*JP « Asc< -8 - ) 
B_DOWN = Asc< "2- ) 
B_LEFT = Asc(*4*l 
B.RIGHT » ASCC6") 
5_3ELECT = AscC*") 
3_ PAGEUP = KEY_ DIVIDE 
B_ PAGEDOWN = AscCO'j 
3.0 = KEY_MULTIPLY 
3_ FILTER « KEY_RETURK 

Else 

3_3ACK = KEY_F1 
3_HEL? * KEY_F3 
'5 B_?RZVI£W » KEY_F2 

B_U? » KEY_UP v 
B.DOWN = KEY_DOWN 
B_1EFT » KEY_LEFT 
B_RIGHT « KEY. RIGHT 
B_SELECT ■ KEY_RETURN 
B_PAGEUP = KEY_PRI0R 
B_ PAGEDOWN « KEY.NEXT 
B_0 = KEY.NUMPADD 
B.FILTER = KEY.F4 
End If 
25 End Sub 

Sub SetStatus (text As String, Color) 
'update the status bar with new message 
Dim s As SSPanel 

3Q Set s = f rmFrame ! sspStatus • (works as long as form is loaded) 

s.BackColor = Color 
s. Caption = text 
End Sub 

Sub SizeAControl (Item As Control, t, H, 1, w) 
35 'set the size attributes of a control 

Item. Top = t 

Item. Left = 1 

Item. Height = H 

Item. Width = w 
End Sub 

40 

Sub SizeAForm {frm As Form, t , H, 1, w) 
'set the size attributes of a form 

frm. Top = t 

frm. Left = i 
45 frm. Height = H 

frm. Width * w 
Er.d Sub 

Function StationString ( s ) As String 
so 'looks up station number and returns station name as string 

statTable. Index = "ID" 
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statTable.Seek , s 

If statTable .NoMatch Then 

MsgBox "illegal station ID " & s 

5 St °P 
End If 

StationString « statTable ( "Name" ) 
End Function 

Sub TeiiUser Message As String) 
1 9 -displays message on screen until key is pressed 

•probably would not be used 
userMsg * message 
wait frmMsg 
End Sub 

IS 

Function TimeLabel (t) As String 
•returns null string for times on half hour. 
* returns hour 1..12 otherwise 
Dim s As String 
s « Formaclt, "hh :mm AM/PM" ) 
2° If Mid(s, 4, 2) - -30- Then 

Time Label » " " 

Else 

s =» Formatts, "h AM/PM") 
■strip off AM/ PM 
2$ TimeLabel * Leftls, L«n(s) - 3) 

End If 
End Function 



Function TimeString (aDate) As String 

'format a date as 12-hour time without AM/?M or leading zero 
Di.t. theTime As String 

theTime = Format (aDate . " hh : mm AM / PM - ) 
theTime » L*ft ( theTime . 5) 'take just "hh-.mm- part 
If Left (theTime. 1) ■ "O* Then 
theTime « Right (theTime, 4) 
End If 

TimeString ■ theTime 
End Function 



Sub Wait (F As Form) 

•Allows one form to wait for another to hide itself 
40 F . Show 

While (F. Visible) 
DcEvents 

Wend 
End Sub 

45 

• = = = = = = WEEK form code = = = = = = 

Option Explicit 

• stacked channel • view to be used with TV search and 

• possibly other minimal searches (would need modification in ApplyFilter* 
SO Dim allData(9> As snapshot 'all data within cime period 
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Dim f iiterData (8 ) As snapshot *a snapshot for each day in the view 

Dim NDays As Ir.t ger 'number of days in display 

Dim NSiots As Int ger 'number of time sloes in display 

5 Dim NProgs As Integer 'number of programs in display 

Dim colorField As String 'the database field that determin s item color 

'(the field should contain an integer) 
Dim inPreview As Integer 'boolean 'if tru . preview should show 
Dim refDate reference date fcr data time slots 
Dim siotsPerDay As Integer 'number of slots allowed per day 

10 Dim currDay number cf current day 

Dim dayWidth As Integer 'width of day labels 

Dim lblHeight As Integer 'height of day labels 

Dim infoHeight As Integer 'height of specialized info panel 

Dim timeHeight 'height of time labels 

1S Dim scartTime 'beginning time for view 

Dim TSBegin As Long 'first time slot of current day 
Dim TSEnd As Long 'last time slot of current day 
Dim TScurrent As Long 'time slot of current program 
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Sub ApplyFilter {) 
20 ' filter for a particular show by title in userString 

Dim i As Integer 'counter 

'create snapshot for each day 
For i = 1 To NDays 

ailData I i) . Filter = "Title * & userString & 

Set f iiterData* i) * ailData ( i ) . CreateSnapshot ( ) 
f ilterData< i) . Sort - "StartTS" 

Set f ilterDataii) * f iiterData { i ). CreateSnapshot < ) 
Next i 
End Sub 

30 

Sub ChangeSel (d As String) 
* perform view navigation 

Dim current 'as database marker 
Dim success As Integer 'boolean 
Dim s As Integer 'station number 
Dim best 
Dim TS As Long 'time slot 
Dim F As snapshot 
Dim aDay As Integer 
Dim marker 'as bookmark 
40 Dim arrows As String 
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'save values, initialize values 
current = f iiterData ( currDay >. Bookmark 
Set F = filterData(currDay) 
4$ s = ft "Station" ) 

TS = TScurrent 
aDay = currDay 
success * False 

Select Case d 
so Case "Right" 
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•move co lat r time, same day 
F.FmdNext -StartTS > - & Str(TS) 
succ ss = Not F.NoMatch 
If success Then 

•ch ck if inf arrows needed 
TS * F( -StartTS") 
F.MoveNext 
If Not F . EOF Then 

If F ( "StartTS" ) * T S Then 

infcArrows "down" 
Else 

oArrows "none" 

End If 

Else 

is infoArrows 'none" 

End If 

F .MovePrevious 
End If 
Case -Left" 

20 F T e '° «*rlier time, same day 

F - '^Previous "StartTS < • * strcTSi 
success . Not F.NoMatch *"CTS) 
If success Then 

TS * F( "StartTS") 
'So to top of column 
2S T.FindFirst 'StartTS * - & st-fTSs 

TS « F( "StartTS") St* (TS/ 

•check if info arrows needed 
F.MoveNext 
If Not F . EOF Then 
30 If F{ "StartTS-) = TS Then 

infoArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

35 infoArrows "none* 

End If 

F . MovePrevious 
End If 
Case "Down" 
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«=ay . aDay * i: TS » TS * 48 n ° thlnB lf a11 snapshots er.pty 



While Not success And aDay <= NDays 
Sec F = filterDaca<a->ay) 
F.FindFirst "StartTS > ■ & StrfTS! 
45 F.NoMatch Then 

'no prog to right, look le'h f„- , 
" Not F. EOF Then F ^ Move Last ^ 
If Not F . EOF Then 
success = True 



50 End If 



TS - F ( "StartTS ' 
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£1Se . s .ve program to right, .cunt time slots away, check Imtz 
marker » F. Bookmark 
best « ?rS:artTS'l - TS 
F.Findlast "StartTS <» " & Str(TS) 
If F.NoMaich Then . 

•no prog to left, take progran to right 
?.3ookmark = marker 
TS = TS * best 

Else \ 

•check distances from previous time s.oc 
If TS - F( -StartTS*) > best Then 
•right prog closest 
F. Bookmark * marker 
TS * TS - best 

1S Else 

•left prog closest 
TS = Ft "StartTS") 
End If 
End If 

•either way. we found a program 
success = True 
End If 

aDay = aDay * 1: TS = TS ♦ 46 

Wend 

aDay = aDay - 1: TS « TS - 48 
25 If success Then 

•make sure to be at the top of a column 
r ci^r^ct -StartTS « " & Str(TS) 

If ; S^cch Then Scop "how d,c we get a TS «th no program in ^ 
TS zz F { -StartTS- ) 
'check if info arrows needed 
F . MoveNext 
Zt Not F.ECF Then 

If F( -StartTS') * TS Then 
infoArrows " down • 

Else 

35 infoArrows -none* 

End If 

Else 

infoArrows -none" 
End If 

40 F . MovePrevious 

End Zi 

Se -o ear^ie^ day, trying to keep close to previous time slot 
If "progs < I Then Lit Sub 'do nothing if ail snapshots empty 
aDay = a Cay - 1: TS = TS - 48 
While Net success And aDay > 0 
Set F « f ilcerDataiaDay) 
F.rindrirst "StartTS > " * Str(TS) 
I: F.NoMacch Then 

no prog to right, lock left 
Zi Mot F.EOF Then F.McveLast 
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If Not 7. EOF Then 

success = Tru 

TS * F ( "StartTS" ) 
End If 

E * $e . M ve program to right, coun: time slots away. look left 
marker - F.3ookmark 
best = F : "StarrTS* > - TS 
F.rindLast "StartTS <= - S« Str(TS) 
Q rf F.NcKatch Then 

• nc prog to left, take program \ to right 
F. Bookmark « marker 
TS * TS * best 

Else 

•check distances 
IS If TS - FC StartTS-) > best Then 

•right prog closest 
F . Bookmark = marker 
TS = TS * best 

Else 

' left prog closest 
TS « F ( "StartTS" ) 
End If 
End If 

•either way, we found a program 
success = True 
25 End If 

aDay = aDay - 1: TS = TS - 48 

Wend 

aDay = aDay ♦ 1: TS ■ TS ♦ 4 8 
If success Then 
30 -make sure to be at the top of a column 

F FindFirsc "StartTS = " * StrtTS) 

If F.NoMatch Then Stop 'how did we get a TS with no program m i.: 
TS * FCStartTS*) 

check if info arrows needed 
F.McveNext 
35 Zt Not F . EOF Then 

If FCStartTS") « TS Then 
infc Arrows "down" 

Else 

inzoAxrcws "none- 
End If 

Else 

infoArrows "none- 
End If 

F.MovePrevious 
If 

Case 'Nex- " 

•find next program, same time and day 

r . MoveNext 

If Net F . EOF Then 

•success r.eans still in same time slot 
so success » F: "StartTS") = TS 
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End If 
•see arrows 
If success Then 
F . MoveNext 
5 arrows » "up" 

If Not F . EOF Then 

Zi F{"StartT5") ■ TS Then arrows = "both" 
End If 

F. MovePrevious 
10 infoAxrows arrows 

End Xf 
Case - Prior- 

* find previous prograzt, same time and day 
F . MovePrevious 

If Not F.BOF Then 
1S 'success means still in same time slot 

success = FCStartTS-) ■ TS 
End If 

* set arrows 

If success Then 
20 F .MovePrevious 

arrows = -down" 
If Not F.BOF Then 

If F < "StartTS" } e TS Then arrows = "both" 

End If 
F.MoveNext 
25 inf oArrows arrows 

End If 
Case "none" 

•stay at current program, update the arrows <used at startup » 
If Not F . EOF Then 
30 F . MoveNext 

arrows = "none* 
If Not F .EOF Then 

If 7 i " StartTS " ) - TS Then arrows « "down " 
End If 

F . MovePrevious 
35 infoArrows arrows 

End If 
End Select 

If success Then 
40 -update 

TScurrent « FCStartTS") 
currDay = aDay 
DisplayProg 

Else 

•restore database position 
4 & f il-erData (currDay) .Bookmark = current 

End If 

'set begin and end time slots for current day 

TSBegin = DateDi f f ( "n" . refDate. (startTime - currDay - * ■ 30 
TSEnd « TS3egin ♦ slotsPerDay - 1 



SO 



End Sub 
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Sub DispiayProg ( ) 

' se: info box with current program into and highlight position 
Dim F As snapshot 
Dim msg As String 

Set F = f ilterData ( currDay ) 

msg = 3tationString(F(*Statior.") ) & • « Format ( F ( - Start ■ ) , -h.-mrr. AM/ ?K" J 
rr.sg = msg & " to " & Format S F ( "Finish" : . "h : mm AM/ PM. ") 

msg = msg i Format ( F ( "Title ") ) ^ 
msg = msg i Chr(13) & "(episode info here)" '& Format ( F ( "Episode " * ; 
'note: current database does not contain episode information 
Setlnfo msg. Color ( F ( colorField) Mod 9) 

shpProg i 0 ) .Visible « False 
selector .Visible » False 

Position shpProg ( 0 ) . F ( "StartTS" ) , F ( " FmishTS" ) 
CPlace D. selector. shpProg (0) 
shpProg (0) .Visible • True 
selector .Visible = True 
End Sue 

Sub DoPreview () 

'Construct an appropriate preview message and display 
Dir. msg As String 

msg = f ilterData (currDay > ("Title") 

msg = msg i Chr(13) & "on " & StationString ( f ilterData ( cur r Day ) ( "Station" ) ) & 

Chr;i3) 

msg = msg & CategoryString (( f ilterData ( cur rDay) { "Type ")) , 

' f ilterData (currDay) ( "Category" J ) ) 

msg « msg & Chr<13) & DayStrir.g (Weekday ( f ilterData ( currDay) (" Start " >) . "long") 
msg = msg * " , " « Format ( f ilterData (currDay ) [ "Start " ) , Tnmm d. yy h:mm AM/PM"> 
msg - msg & Chr ( 13 ) & - to ■ & Format ( fi iterCata i currDay )(" Fini sh ") , "h:mm 

AX/PM") 

popup . Caption = msg 

SiteACor.trci popup. ( IblTime ( 1 ) . top * 1.5 • lblTime < 1 ). Height ) . 12, 
(lblDaydi .Width! , 45 

popup . Vis ible » True 

inP review = True 
End Sub 

Sub DoSelect ( ) 

•set data for selection and go to TV 

userStation - t ilterData (currDay) ; "Station" ) 
userStart = fil terData ( currDay ) ( "Start " ) 
retumCode = TOTV 
Me: Hide 

Sue DrawProg i duplicates As Integer . index As Integer) 

•draw a program shape in display, marking it if there are duplicates at the 
identical time slot 
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•shpProg(O) should be at the desired location 
Dim above, below, side, wide 
Cons: GA? = .3 

abov » shpProg(O) . top 
below = shpProg(O) .Height 
side = shpProg(O) .Left 
wide * shpProg(O) .Width 

ForeColor » biackCOLOR 'line ccl=r. thin black outline 
FillStyle * 0 "solid 
drawwidth = . 1 



Selec: Case duplicates 
Case 0 

•draw the prograr. in the given color 
15 fillColor » Color (index) 

Line (side. above)-vside - wide, above * below - .5 ' ' B 

Case 1 

•draw the program in grey and mark it 

fillColor = greyCOLOR 'indicate duplicates (which may be of differed 

20 colors) (g . de above) . {side ♦ wide, above * below - .5 * GAP). . 6 

•draw icon 
above * above - GAP 
side « side - GAP 
wide * 2 * GAP 
25 drawwidth = 2 

Line (side, above: -(side ♦ wide, above «• wide) 
Line (side, above - wide)-(side * wide, above) 

Line (side, above - .5 * wide) -(side ♦ wide, above ♦ .5 • wide, 
Line (side - .5 • wide, above) -(side + .5 • wide, above ♦ wide) 

Case Else 

•no need to redraw duplicate marks 

End Select 



End Sub 

35 sub Form_Activate ( ) 

Dim i As Integer 'counter 
Static saveFilter As String 



If saveFilter - userString Then sameFilter = True 
saveFilter - userString 

SetStatus "This Week: ■ & userString. greyCOLOR 



•if not same form, erase and redraw the week schedule 
If Not sameFilter Then 
Me .CI s 

45 Setlnfo -Loading program information...*. GREY 

shpProg(O) .Visible = False 
selector .Visible * False 
ir.fo Arrows "none* 
Do Events 

SO 
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ApplyFilter 
Make3isplay 
sameFilter = True 
End If 
r.c Sud 

ub Fonr._KeyDown I KeyCode As Integer. Shift As Integer) 
Dirn index As Integer 

n As Integer 
Select Case KeyCode 
Case Asc I ) 

End 
Case 3_3ACK 

returnCode = 3ACK 

Me. Hide 
Case 3JHZLP 

sameFilter = True 

InvokeHeip 
Case 3.PRSVIEW 

If inPreview Then 

in?review « False 
popup .Visible. » False 

Else 

inPreview ■ True 

End If 
Case B_RIGHT 

ChangeSel ( - Right " ) 
Case B_LEFT 

ChangeSel ( "Lef f ) 
Case B_*J? 

ChangeSel < w Up"> 
Case 5 _ DOWN - - - 

ChangeSel ( "Down" i 
Case B_SELECT 

If Not filterData(currDay) . EOF Then DoSelect 
Case B_PAGEDOWN 

ChangeSel {-Next") 
Case 3_PAGEUP 

ChangeSel ("Prior") 
Case B_r ILTER 

•go back to frmSelect to choose a new title 

returnCode = PICK 

Me. Hide 
Case 3_0 

returnCode * SHORTCUT 

Me. Hide 
End Select 
If inPreview Then 

Do Preview 

Else 

popup . Visible * False 
End If 
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for:r._load i ) 
::x i As Integer 

• set form colors and fonts 
Me.3ac<Color » formCOLOR 
shpProg I 0 ) . BackColor = BorderColor 
IblDay * 0) . BackColor * backgroundCOLOR 
selector . 3orderColor = BorderColcr 
dayLineiO) -3orderColor * divideCOLOR 
lblTime<0> . ForeColor = slocCOLOF. 
shpSiot(O) ,3orderColor » slotCOLOR 
inf oPanel . FontSize * mediumFONT 
If displayMode ■ "TV" Then 

lblDay(O) .FontSize = smailFONT 

lblTime(O) .FontSize = small FONT 

popup. FontSize « mediumFONT 

Else 

lblDayO) .FontSize « largeFONT 
lblTime<0) .FontSize = iargeFONT 
popup. FontSize ■ IargeFONT 
End If 

' cover up the standard info box 

SizeAForm Me. 0, DispTop * DispKeight. DispLeft. dispWicth 

set scale and size objects 
NITays = 7 
NSlots * 48 
dayWidth = 4 
IblHeight « 2 
mfoHeight * 5 
If displayMode = "TV" Then 

upArrow.Left = 3950 

downAr row. Left » 8950 

timeHeight » 2 

downAr row. top * 550 

upArrow.cop « 150 

Else 

timeHeight ■ 1.5 
downArrow. top = 1525 
End If 

Me. Scale 10. 0>-{NSlots * dayWidth. NCays * IblHeight - 2 
foheight) 

selector . BorderWidth ■ 1 
•place extended info panel 

Si2eAControl infoPanel. 0, infoKeight. 0. (Me . ScaleWictr. ) 
ir.fcPanel . Caption = " * 
ir.rcPanel .Visible = True 
•place day labels along side 

SizeAContrcl IblDay(O). IblHeight - ir.foHeight. IblHeight 
Fcr i = I. Tc NDays 
Load lblDay(i) 

IbiDaytii .Caption « DayStringti, -short") 
IblDay(i) .ccp » ii - 1> * IbiKeight * infoKeight - 2 
IblDay(i) .Visible = True 
Next i 
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■ pu _ A>!/?M label across top 

3::eACon:ro 1 IblDay ( C ) . ir.f cHeight . : ir.eHeight . dayWidth. NSlots 
IblDay(O) .Caption - "AM NOON PM" 

5 lbiDay( 0 ) .Visible = True 

•put tim labels across tcp 

SizeACor.trcl lblTime(C;. ( IblDay < 0 )• Height ) ♦ infoHeight, timeHeight, 0. 2 
"cr i = 1 To NSlots v 2 
Load IblTimeti.' 

IblTime (i i .Caption » Time Label ( Da teAdd « " h" . (i - 1). fakeTCDAYJ) 
W < IblTime ( i » .Left o 2 • 1 *' 2 

IblTime 1 1 ) .Visible = True 
Next i 
NProgs = 0 
sameFilter = False 
InputData 
•orn.Activace 
End Sub 
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Sub info Arrows : direct As String) 

'show or hide arrows m info box indicating presence of more programs at identical 
t ime 

Select Case direct 
Case "up" 

dcwriArrow. Visible * False 
upArrsw. Visible » True 
Case "down" 

up Arrow . Visible = False 
downAr row. Visible » True 
Case "both" 

up Arrow . Visible = True 
downAr row. Visible » True 
30 . Case -none" 

upArrow . Visible * False 
downAr row. Visible = False 
End Select 
End Sub 

35 

Sub InputData i ) 
' part of f orm_load 

opens the database and creates allData snapshots 

Dir. 23 As database 
4 0 Dir. XefSnap As snapshot 

Din i As Integer 

Set 03 « CpenDat abase (TVDB > 

get reference date and number of stations 
Set Re f Snap * DB . CreateSnapshot I * Reference • } 
r.ef Snap , Findr irst "Name » 'Date'* 
refCate e Date Value (Ref Snap ( "Data" : ) 
Re: Snap . FindFirst "Name = ' NStat icr.s 1 - 

SO Set allDataiOi = D3 . CreateSnapshcc : • ?r ?crar.s " ) 
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startTiroe = re f Dace 
TSoegin = 0 

TSZr.d = TSBegin + 48-1 
Tor i « I To 7 

allData(O) .Filter = Overlap iTSBegir. * 48 • ;i - 1) . TSEr.c - 4t • 
Set ailData(i) = allData ( 0 ) . CreateSnapshot ; ) 

Next i 

£e: allData(C) = Nothing 'no longer need da '3 all together 
Er.cSub 

.Sue MaxeDispiay ( ) 
create schedule display on screen 
:im i As Integer 'counter 
rim d As Integer 'day 

2im TSlast As Integer 'last tirr.e slot affected 
rim F As snapshot 'convenience 

rim offset As Integer 'used twice: day line offset & number of programs sharing a 
time slot 

'draw horizontal day lines 
drawwidth * 2 

ForeColor » lblDay ( 0 ) . BacxColor 
offset * infoHeight + 2 * timeHeight 
For i 9 0 To NDayS 

Line (0. offset «• i • IblHeight ) - ( 52 . offset ♦ i • lbiHeight» 
Next i 



•place program shapes 

offset * 0 'keep track of how full a particular time slot is 
colorField « -Category - 'note: should this be "Type" instead? 
For d « 1 To NDays 
cur r Day = d 
TSlast = -1 
Set F = f iiterData(d) 
If Not F . EOF Then 
F . Move" irs- 
Do While Not F . EOF 

If F( -StartTS" ) » TSlast Then 
offset = offset * 1 
DrawProg offset. -1 

Else 

40 offset » C 

Position shpPrcg(O). ?( "StartTS ") . F * " FinishTS" > 
rrawProg offset. F (colorField) Mod 9 
TSlast * F( -StartTS" ) 
End If 

4S F.MoveNext 
1-op 

r .MoveFirst 
End If 

::ext d x 
50 'initialize stjff 
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c-rr:ay = 1 

Wh lie d < = NDay s 

If f i 1 terData (d> .EOF Then 
d « d + 1 

Else 

NProgs » 1 'just to make sure it is .T.ore than 
cur r Cay = d 
^ - d » MOays ♦ 1 

End Z f 

Wend 

sr.pProgf 2 ) . ZOrder 
selector . ZOrder 

Z£ Not filterData (currDay) . EOF Then 

TScurrent « i ilterDaca (currSay ) I "StartTS" ) 

OisplayProg 

ChangeSei - none - 

End If 



Sue Position ishape As Control, start, finish) 
'=cs it ion a program shape 

:5i:r. leftTS 

Tim rightTS 

Const small GAP » .1 



convert to time slot scale 
leftTS = start - 46 • (currDay - 1) 
rightTS * finish - 4 8 • (currDay - 1) 

set left and width 
shape. -eft « dayWidth - leftTS ~ 
shape. Width - rightTS - leftTS * 1 - smallGAP 

cui off at beginning of day 
If shape. Left < dayWidth Then 

shape. Width =- shape. Width - (dayWidth - shape. Left 
shape. Left = dayWidth 
End If 

set top and height 
shape. Height « 2 - 2 * smallGAP 
shape. -op » iblDay ( currDay ). cop ♦ smallGAP 



Sua Setlnfo <msg As String, Color) 
tverrice the global Setlnfc to write to my own info panel 

ir.f oPanel . 3acV.Color = Color 

mfoPanel . Caption « msg 
End Sub 



■ = = = = = = WKZAY form code = = = = = = 

Option Explicit 

schedule tf 5 weekdays at a particular time 

uses time-slot guided navigation 

rim d!10ata:e: As snapshot all data within time period 
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Dir. f ilterData* 3) As snapshot 'a snapshot for each day in the view 

Di- N'Days As Integer 'number of days in display 

Sir. N'Slots As Integer 'number of time slots in display 

5 Dir. NProgs As Integer 'number of programs in display 

Dm NStation As Integer 'number of stations in display 
Din MaxStation As Integer 'total number of stations in database 
Dir. colorField As String 'the database field that determines item color 

•(the field should contain an integer? 
Dir. ir.Freview As Integer 'boolean ; true if preview should show 

10 Const sideGap = .05 'space at beginning and end cf program 

Const topGAP = 4 'space btwr. time label and first program shape 
Dir. ref Date 'reference date for data time slots 

Const IblHEIGHT » 40 'height of day and time labels (in 500 scale) 

Const MINProgWidth « .2 • minimum width of a program shape as fraction of si 
;5 Dir. slctsPerDay As Integer 'number of slots allowed per day 

Dir. cur r Day As Integer 'number of current cay 

Dir. startTime 'start day and time of display 
Dir. TSBegin As Long 'first time slot 
Dir. TSEr.d As long 'last time slot 
20 Dir. TScurrent As Long 'current time slot 

Dir. rowOffset 'distance between < tops of) rows in the schedule 

Sub Apply? il ter () 

'create data set of onpy TV programs that fit into query string filters i TV > 
•set number of stations and database field determining color 
Dim i As Integer 'counter 



If InStrt filters (TV) , -Station") Then 
NStation * 10 

•note: need better mechanism for displaying favorite channels 
colorField = "Type- 
Else 

NStation * MaxStation 
colorField » "Category- 
End If 

For i = 1 To NDays 

allData(i) .Filter » filters(TV) 
Set f ilterData ( i ) * allData { i ) . CreateSnapshot ( ) 
Next i 
End Sub 

40 Sue ChangeSel (d As String] 

Dim current , firstMatch "as database markers 

Dim success As Integer "boolean 

Dir. s As Integer 'station 

Dir. TS As Long 'time slot 
4 5 Dir. F As snapshot 

D-m a Day As Integer 

Dir. best As Integer 

current * f i 1 terData ( currDay ) . 3ookmark 
Set r = f ilterData (currDay) 
50 s » F ! -Station- ) 
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TS = TScurrent 
a 3 ay » curr£ay 
success » False 

If d « -Right" Then 

•check to irjr. diate right, same time slot 

F.KoveNext 

If Net F.ECF Then 

success = F< "Station* > = s Ar.d F • ■ StartTS " > » TS 
End If \ 
If Net success Then 
•check time slots to right 

shpSlotfTS - TSBegir. ♦ 1 - J currTay • 1) * siotsPerDay ) . FillStyle 
ar.sparer.: 

IblTimeiTS - TSBegin - 1 * { currDay - 1) • siotsPerDay ) . BackStyle 
ansparent 

While aDay <= NDays Ar.d Net success 
While TS < TSEnd And Net success 
TS = TS ♦ 1 

•check stations at and beiow current 

F.FindFirst Overlap : 75 . TS) « 'And Station >= " & s 

If F.NoMatch Then 

♦take the last station above current 

F.FindLast Overlap<TS. TS) & "Ar*d Station < " & s 

success * Not F.NoMatch 

Else 

•save this match and check if stations above are clos 

success « True 

best - F( -Station" ) s 

firstMatch « F.3ookxnark 

'check previous 

F . Find Previous OveriaptTS. TS ) 
If F.NoMatch Then 

no previous match, stick with first match 
F . Bookmark = firstMatch 

Else 

If s - F ( -Station" ) > best Then 
* first match was closer 
F. Bookmark = firstMatch 
End If 
End If 
End If 

Wend 

If Not success Then 

TSBegir. = TSBegin • 48 

TSEnd - TS3egin - slotsPerDay - 1 

TS = TSBegin - 1 

aDay = aDay * 1 

Set F « f iiterData i aDay i 
End If 

Wend 
End If 
Elself d = "Left- Then 
check to immediate left, same time slot 
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F . MovePrevious 
If N*ot F.30F Then 

success = F( -Station") = s And F \ " FinishTS " ) = TS 
5 End I f 

If Net success Then 
'check previous time slots 

shpSlot (TS - TSBegin ♦ 1 * (currDay - 1) • slotsPerDay! . FillStyle = 
: • transparent 

IblTime (TS - TSBegin * 1 * l cur r Day - 1) • slot sPerDay J 3ac* = ty = 
10 z ' t rar.sparent 

While aDay >= 1 And Not success 'for each cay tc left 

While TS > TSBegin And Net success 'look for previous si:: this d 
TS = TS - 1 

F.FindFirst Overlap ITS. TS ) « - And Station >= " u Strsj 
r5 If F.NoMatch Then 

•none with station less than current, look fer first one dewr. 
F.FindLast CverlaplTS. TS \ 
success a Not F.NoMatch 

Else 

success = True 

20 'mark this one and check up 

firstMatch ■ F.3ookmark 
best = F ( ■Station" J - s 

F . FindPrevious Over lap ( TS , TS) 'will be less than current 

station 

If F.NoMatch Then 

none lower, keep first match 
F,3ookmark ■ firstMatch 

Else 

If s - F( "Station") > best Then 
■ first match was closer 
30 t . Bookmark = firstMatch 

End If 
End If 
End If 

Wend 

If Not success Then 'try previous cay 

aDay » aDay - 1 
TSBegin » TSBegin - 48 
TSZnd « TSBegin ♦ slotsPerDay - 1 
TS * TSEnd * 1 
Set r ■ f ilterData ( aDay > 
40 End If 

Wend 
End If 
El self d = "Down" Then 
•move devn within time slot 
4S 'note: shculd we have option tc only stop at programs that _begin_ in current 

tine slot? 

twith exception of first ti.T.e* slot in each day, cf ccurse) 
F.Sockrr.ark = current 

F.FindWext " ( " « Overlap ( TS . TS) i " And Station <> " & Stns) * ')" 
success = Not F.NoMatch 
SO Elself d = -Up" Then 
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move down within time slct 

■ r.c - e : should we have opucn :o only seep at prcgrar.s that _begm_ in cur 
:-e slct? 

(with exception of first time slot ir. each day, of course} 
F. Bookmark = current 

F. F indPrevious " i " & Overlap (TS, TS ; s. * And Station <> " 5c 5tr*. s 
success s Not F.NoMatch 
II self d = "Top* Then 

F.Fir.cFirst Overlap :TS, TS) 

success » Not F.NoMatch \ 
Elself d « •Bottom - Then 

F.Fir.dLast Overlap ( TS , TS) 

success « Not F.NcMatch 
Er.d If 

If success Then 
' update 

TScurrent = TS 
currDay » aDay 
DispiayProg 

Else 

'restore position in data 
f ilterData (currCay) . 3ookmark * current 
End If 

•restore other stuff 

TSBegin * DateDif f ( "n" , refDate, (startTirr.e ♦ currDay - 1) ) \ 30 
TSEnd » TSBegin - slotsPerDay - 1 

shpSlot (TScurrent - TSBegin * 1 ♦ (currDay - 1) * slotsPerDay ). Fil IScyie 

1 -solid 

IblTime (TScurrent - TSBegin ♦ 1 * (currDay - 1) • slotsFerDay ) . BackStyle 
1 ' opaque — 
Er.c Sue 



Sub DisplayProg () 

'highlight location of current program 
•put info for current program in info box 

Dim F As snapshot 

Dim msg As String 



Set F = f ilterData (currDay) 

highlight program 
shpProg O) .Visible « False 
selector .Visible « False 

Position shpProgO), F<"Start"). F ( " Finish" ) . F ( * Station" ) 
r? lace Z , selector. shpProg ( C '■ 
snpProg : 0) . Visible * True 
selector . Visible » True 

set message 

mso * StaticnStringtFi "Station" ) ) i " - " & F< "Title" ) & " - 
mso * msg & Format « F <" Start ") , " h : mm AM ?M " ) 
msg = msg * " to " k Format (F 1" Finish" ) , "h:mm AM/PK": 
Setlr.f o msg. Color 'F(colorFielc) Mod 9) 
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Sue Do Preview ( J 
C:r.s;r-c: ar. appropriate preview message and display 
2ir. msg As String 

rr.sg « "Staticn: - & stationString ( f ilterData (currDay: ( "Sea- lor.- ) ) 
msg • r.sg s. Chr<13) & "Title: - & filterData (currDay; ; "Title- » i ChrC2 . 
-sg = r.sg i CategoryS tr ing (( filterData tcurrOayi f -Type- M . 
' f ilterData (currDay! f. "Category" )H 

msg - r.sg i ChrI13) i "Time: - & Format . filterData (currSay) .'Start - ' .. ^ s.yy 

h : ™. AM/PM" ) 



msg 
5wX ?M- J 



r.sg & ChrU3) « " to - & Format ( f ilterData ; curr^ay >< - F ir.ash" ■ . -..-.mm 



' show popup with preview message 
popup . Caption = rr.sg 
popup. Top = IbiTime(l) .Top ♦ 2 • lblTime < 1 ). Height 
popup. Left 5 2 

popup. Width = slotsPerDay • NDays - 3 
popup. Visible = True 
20 inPreview = True 

£r.c Sub 

Sub DoSelect ( ) 

•set data for selection and go to TV 

userStation * filterData < currDay M "Stat ion H ) 
userStart * f ilterData (currDay ) ( -Start" ) 
returr.Code = TO TV 
Me. Hide 
End Sub 

30 sub Fcrm_Activate I • 

Dim i As Integer 'counter 
Static saveFilter As String 

If saveFilter » filters (currDomain) Then sameFilter = True 
saveFilter » filters ( currDomain) 

SetStatus "Evening TV: - & currFi Iter (TV) . greyCOLOR 
•note: -Evening TV" label would be variable 
If inPreview Then 

popup. Visible - False 
inPreview = False 
40 End If 

If newUser Then 

popup. Caption = -Press 'category* to change the Jcind sf programs aiplayec. 
popup. Visible * True 

•note: ought to make popup go away on timer as well as button press 
newUser « False 
End If 

If sameFilter Then 

•restore darkened time-slot 
If TScurrent > 0 Then 
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shpSlot (TScurrer.t • TSBegin * 1 • (currDay 

= : ' sc lid 

IblTime (TScurrent - TSBegin - 1 • (currDay 

* 1'soiid 

End I f 

Else 

ur.ioad old program shapes and redo display 
Setlnfo "Loading program informal- en . . . " . GF.EY 
shpProg (C) .Visible = False 
IblOay ; C ). Visible = False 
IblTime (0) .Visible = False 
shpSlot (0) .Visible = False 
selector .Visible = False 
Fcr : ■ 1 To NProgs 

Unload shpProgii) 
Next i 
Apply?- leer 
KakeDisplay 
sameFilter = True 
End If 
End Sub 

Sub :crr..KeyDown (KeyCcde As Integer. Shift As Integer! 

*noce: always turn off the black slot before leaving, so it doesn't mess up 
later views 

Dirr. Index As Integer 

Dir. n As Integer 

Select Case KeyCode 

Case AscCQ-J 
End 

Case 3_BACK 

shpSlot (TScurrent - TSBegin - 1 ♦ (currDay - li • slotsPerDay >. FillStyle = 
1 * Transparent 

lblTime^TScurrer.t - TSBegin - 1 * (currDay - li • slotsPerDay i . BackStyle - 
? • transparent 

returnCode = BACK 
Me. Hide 
Case 3_HE!P 

sameF ilter » True 
InvokeHelp 
Case B_?REVIEW 

Z f inPreview Then 

pepup . Visible ■ False 
inPreview = False 

Else 

inPreview » True 
End if 
Case 9_ RIGHT 

If N'ct filter Data < currDay) . EOF Then Changes el i "Right") 
Case E_LEF7 

I i Not filterData i currDay) .EOF Then ChangeSel {"Left") 
Case 5_UP 

If Not filterData (currDay ). EOF Then ChangeSel {"Up") 
Case B.DOWN 



- i) • slotsPerDay) . FillStyle 

- 1) • slotsPerDay) .BackStyle 
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If Not filterData icurr2ay) .EG" Tt-.er. ChangeSel ("Dcvr.") 
""^hpSlotrTScurrer.t - TSBegin - I - -currDay - 1> ' slotsPerDay) . FillS-.yle 

s : "" anSP ibt?Le(TScurrer. t - TSBegin - 1 - :currDay - 1) • slotsPerDay) . Bac>.5--y-a 

■: • transparent 

If Not f il terData ( currDay ) .EOF Then DoSelect 

Case 3 PAGEDOWN 

If Not filterData [ currDay) .EOF Ther. Char.geSel r Bottcrr." . 

TO Case B_?AGZU? 

If Not filterData (currDay) .EOF Then ChangeSel r .op" . 

Case B -I'^^R 

sh^SlotTTScurrent - TSBegin <• I ♦ (currDay - 1) - slotsPerDay . . FiliSty-. 

■ ** ransDarent . - 

lblIim.tTSeurr.nt - TSBegin . 1 . (currDay - 1) * slotsPerDay. . BaccSty-e 

C ' transparent 

recurr.Code * Filter 
Me. Hide 

CaSe sh;siot(TScurrent - TSBegin - 1 * (currDay - 1) * slotsPerDay ). FiliStyle 

20 1,rranSP ?b!?Le(TScurrent - TSBegin - L * (currDay - 1. • slotsPerDay ). BaO.Style 

0 ' transparent 

returr.Code = SHORTCUT 
Me. Hide 
End Select 
If inPreview Then 
DoPreview 

Else 

popup . Visible « False 
End If 
30 End Sub 

Sub Form_Load ( ) 

Dim d As Integer, i As Integer, n As Integer 'counters 

Dim t 'as time 
•set form colors and fonts 
3S Me.BackColor * formCOLOR 

shpProg (0) .BackColor - BorderColor 
IblDay(O) .BackColor = backgrcundCOLOR 
selector .BorderColor = BorderColor 
dayLine(O) .BorderColor = divideCCLOR 
IblTime(C) .ForeColor » siotCOLOR 
shpSlot iO) .BcrderColor * siotCOLOR 
If displayMode » " TV* Then 

IbiDay(C) .FcntSize = smallFOKT 
IblTime(C> .FontSize » small FONT 
popup . FontSize = mediumFONT 

Else 

IblDay(O) .FontSize » largeFONT 
IbiTime (0 ) .FontSize = -largeFONT 
popup. FontSize = largeFONT 
End If 

So set scale and size objects 
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Si zeAForm M . DispTop. DispKeight. DispLert, DispWidth 
Me. Scale ;0. 0)-(500. 500) 

SizeAControl IblDay(O) . 0, lblHEIGHT. 0. 5C0 

SizeACcntrol IblTime(O). lblHEIGHT. lblHEIGHT. C, 50 
5 SizeAControl shpSlot(O), 2 • lblHEIGHT * .S • topGAP. 500 - 2 * lblHEIGHT , 0. 5C 

SizeAControl popup, 250. 200. 250, 200 

selector . BorderWidth ■ 1 

cayLir.e(O) . Yl « 0 

cayLir.e(C) . Y2 = 500 
io ■ ir.it variables 

sameF il ter ■ False 

sameView = False 

inPreview s False 

NProcs » C 

NOays = 5 'five week days 

slotsPerDay » 6 'three hours. 6 half -hour slots 
NSlots * NDays • slotsPerDay 

startTime = fakeToday ♦ CVDate < " 7 : CC PX" ) 'time would be variable and set at 
activate 

startTime » DateAdd { "d" . 2 - Weekday I startTime ) . startTime) 'set scarcTime to 
20 Monday (=2) 

•set time slot scale and place the perr-anent objects 
Me. ScaleWidth = NSlots 
lblTime <0) .Width » 1 
shpSlot 10) .Width = 1 
For i = 1 To NDays 

'place and caption day labels 
Load IblDay(i) 

SizeAControl lblDay(i), 0. lblHEIGHT. slotsPerDay • (i - 1). slotsPerDay 
IblDay i i) .Caption » DayStringd ♦ 1. "shore") 
IrlDayii) .Visible » True 
30 Next i 

For d s 1 To NOays 

For : = 1 To slotsPerDay 

n a id - 1) * slotsPerDay ♦ i 
'place time slot dividers 
Load shpSlot(n) 
shpSlot (n) .Move n - 1 
shpSlct'.n) .ZOrder 
shpSlot (n) .Visible = True 
'place time labels 
Load lblTime tn) 
40 lblTime (r.) .Move n - 1 

IblTime(n) . ZOrder 

t ■ DateAdd( "n" . 30 * (i - 1). startTime • 
lblTime ( n) . Caption = TimeLabei(t) 

'time captions would be set at activate since they could change (when 
s a.-r.e V lew false) 
45 shpSlot (i) . FillStyle * 1 ' transparent 

lblTime ( i >. SackStyle • 0 • transparent 
lblTime (n) .Visible ■ True 
Next i 

place day separators, but don't show yet 
$0 If d < XDays Then 
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Load dayLine(d) 

dayLine(d) .XI * d • slotsPerDay 
dayLine(d) .X2 = d * slotsPerDay 
End If 
Nex: c 
InputCata 
?orm_Ac tivate 
s ame View = True 
End Sub 

Sub Input Data { ) ^ 
•part of form_loac 

•opens the database and creates allData snapshots 

Dim DB As database 
Dint Re f Snap As snapshot 
Dim i As Integer 

Set DB « OpenDatabase iTVDB) 

•assumes data already sorted by station, start 

•get reference date and number of stations 
Set RefSnap = DB . CreateSnapshot ( -Reference" ) 
RefSnap.FindFirst "Name * 'Date*' 
refDate = DateValue {RefSnap ( "Data" ) ) 
RefSnap.FindFirst "Name * 'NStations'" 
MaxStation » Val (RefSnap ( •Data" ) ) 

Set allData (Ci - DB . CreateSnapshot ( * Programs * ) 

•create snapshots of all programs for each weekday at fixed time 
30 • time v/ould be variable and these wculd have to be created at activate 

TS3egin = DateDi f f ( -n" , refDate, startTime) \ 30 
TSEnd » TSBegin * slotsPerDay - 1 
For i « 1 To 5 

allData(O) .Filter = Overlap (TSBegin ♦ 48 • (i - 1), TSEnd * 48 • ;i - l\ ) 
3S '48 rime slots/day 

Set allData(i) « allData ( 0 I . CreateSnapshot ( ) 
Next i 

Set allData (C) = Nothing 'won't be needing everything since time :s fixed 
End Sub 

40 Sub MakeDi3play () 

•create the visual schedule of programs from the filtered data 
Dim d As Integer 'day 
Dim z As Integer 'counter 
Dim F As snapshot ' convenience 

Dim hasProgs As Integer 4 remember the first day that has programs in it 
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'set times showing 
If Mot same View Then 

"would change time labeis here 

Zr.d Z i 
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•place program shapes 
has Progs = C 

c = 0 * init count of shpProgs 
5 Or. Error GoTo ErrorHandler 'if we run out of shpProgs to allocate 

For d * 1 To NDays 

currDay » d 

Sei F = f ilterData(d) 

•create a shape control for each TV program in the data 
If Not ? . EOF Then 
10 F.MoveFirst 

Do While Not F . EOF 

Load shpProg(c ♦ 1) 

c = c ♦ 1 'increment only after allocate succeeds 
shpProg(c) .BackColor * Color ( F (col or Fie Id) Mod 9) 
1S Position shpProg(c) , FCStart"), FrFinish'), F ( "Station" ) 

shpProg(c) .ZOrder 
shpProg(c) .Visible = True 
F.MoveNext 

Loop 

F . MoveFirst 

20 j* hasProgs = D Then hasProgs = d 'remember the first day with programs 

m it 

End If 
Next d 
XcveCn: 

2S cn Error GoTo 0 'quit crapping errors internally 

make day lines visible on top 
For d « 1 To NDays - 1 
dayLine(d) .ZOrder 
dayLine(d) .Visible = True 
Next d 

30 

initialize stuff 
NProgs = c 
currDay « hasProgs 
shpProg ( 0 ) . ZOrder 
selector. ZOrder 
If currDay > C Then 

'set time slot begin and end numbers for current day 

TSBegin * DateDif f ( "n" , refDate. startTime) \ 30 ^ 48 • (currDay - 1) 
TSEnd = TSBegin <■ slotsPerDay - 1 
TScurrent = TSBegin 
40 3ez F * filterData (currDay) 

Do While TScurrent <» TSEnd 

F.FindFirst Over lap (TScurrent . TScurrent) 
If Not F.NoMatch Then 
DisplayProg 
Exit Do 
End I f 

TScurrent ■ TScurrent ♦ 1 

Loop 

Else 

TSBegin = DateDif f ( "n" . refDate. startTime) \ 30 
50 TSEr.d = TSBegin ♦ siotsPerDay - 1 
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TScurrer.t = TSBegin 
currDay = 1 

End If ... 

shpSlot(TScurrent - TSBegin ♦ 1 - (currDay - 1) • slotsPerDay) . Fi — Styie = 

Z ' solid 

lblTime<TScurrent - TSBegin - 1 * (currDay - 1) • slotsPerDay, . SackSty.e = 
1 ' opaque 

Exir Sub 

\ 

ErrorHar.dler : 

If Err =3 42 Then 

■ran out of room tc allocate program shapes, quit drawing 

Resume MoveOn 

Else 

Dim msg 

msg * Error & Chr(13) & "Resume or Cancel?" 
msg « InputBox<msg, "Error Correction-. -Resume") 
If msg » Then Stop 
Resume MoveOn 
End If 
End Sub 

Sub Position (shape As Control, start, finish, station! 
•position a program shape for display 

Dim relatively relativeW. dayStart 

Dim edge 

•convert a day/time to position in NSlot scale 
dayStart = starcTime ♦ currDay - 1 
relaciveL = (stare - dayStart) • 48 

relative* » (finish - dayStart) • 48 - relativeL „ . 

* clip shapes off at day boundaries 
If relativeL < 0 Then 

relativeW = relativeW * relativeL 

relativeL = 0 

If relativeW * relativeL > slotsPerDay Then relativeW » slotsPerDay - relativeL 

•set left and width of shape 

edge = (currDay - 1) • slotsPerDay 

shape. Left = relativeL - edge ♦ sideGap 

shape. Width » relativeW - 2 * sideGap 

'enforce minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. Width = MINProgWidth 
'set top according to station 

'note: this scheme only works because stations are named l..n 
rcwCffset = ((500 - 2 • lblKEIGHT - shpProg ( C ). Height ) / NStation) 
shape. Top » shpSlot ( 0 ) . Top ♦ topGAP ♦ (station - 1J * rowOffset 
End Sub 
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Thus, it will now be understood that there has been disclosed a method and apparatus of finding and selecting a 
program to view from a large schedule of TV programs. While the invention has been particularly illustrated and de- 
scribed with reference to preferred embodiments thereof, it will be understood, by those skilled in the art that various 
55 changes in form, details, and applications may be made therein. For example, color coding of the individual items of 
the reduced representations and of the various entries in the various grid displays could be used to assist the viewer 
in making rapid program selections. Another example is that it is easily within the capabilities of this art to modify a TV 
set by integrating the set top box according to the present invention into it. It is accordingly intend d that the appended 
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claims shall cover all such changes in form, details and applications which do not depart from the true spirit and scope 
of the invention. 



Claims 

1. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: \ 

filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to at least a portion of the subgroup in the 
display means; and 

group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means. 

2. The apparatus set forth in claim 1 wherein: 

the pointing means need only be movable from one representation to an adjacent representation. 

3. The apparatus set forth in claim 1 wherein: 

the means for displaying the representations comprises: 

first means for displaying the representations in a single dimension; and 

second means for displaying the representations in two dimensions. 

4. The apparatus set forth in claim 1 further comprising: 

means for displaying a reduced representation of the entire subgroup arid an indication in the reduced rep- 
resentation of the portion of the group being presently displayed by the display means. 

5. The apparatus set forth in claim 4 wherein said reduced representation is two dimensional. 

6. The apparatus set forth in claim 5, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction: and 
a second pair of buttons to control changes in location in the display in a second direction. 

7. The apparatus set forth in claim 4 wherein said reduced representation is a two dimensional representation of a 
three dimensional representation, the third dimension being location within a logical stack of items having at least 
one common property. 

8. The apparatus set forth in claim 7 wherein each item of a logical stack have viewing timeslot as one common 
property. 

9. A method comprising the steps of: 

receiving program schedule data by a set top box via a same information conductor that conducts program 
information to the set top box: 

filtering said program schedule data in RAM within said set top box: 

said set top box showing a first interactive display on a TV connected thereto presenting a plurality of choices 
for filtering said program schedule data to a viewer; 

in response to an interactive selection by said viewer, filtering said program schedule data into a first subgroup 
of program schedule data; 

also in response to an interactive selection by said viewer, said set top box showing a second interactive 

display on said TV having a second plurality of choices for filtering said program schedule data: 

in response to a second interactive selection by said viewer, filtering said first subgroup into a second subgroup: 
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and 

also in response to a second interactive selection by said viewer, said set top box showing a third interactive 
display on said TV having a representation of each program item of said second subgroup. 

10. The method of claim 9, wherein said receiving program schedule data step further comprises the steps of 

receiving a first portion of said program schedule data via said set top box; and 
receiving a second portion of said program schedule data at a later non -contiguous time. 

11. The method of claim 9, further comprising the step of: 

in response to an interactive highlighting of a representation of a program item of said second subgroup, 
displaying a title thereof. 

12. The method of claim 11 , further comprising the step of: 

in response to an actuation of a select button of a remote control, displaying a preview of said highlighted 
program. 

13. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, switching said set top box to 
display a TV program corresponding to said highlighted representation. 

14. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, storing a command to switch 
said set top box to display a TV program corresponding to said highlighted representation in when that TV program 
begins. 

15. A method comprising the steps of: 

receiving program schedule data for at least 300 individual channels for a time period of at least a week: - 
storing said program schedule data in local memory for rapid sorting and retrieval in a database format; 
filtering the program schedule data in response to interactive user inputs into a subgroup of the program 
schedule data: 

displaying the subgroup of the program schedule data for the user's review; and 

interactively selecting a program from the subgroup of program schedule data for viewing on a TV screen. 

16. A method for choosing a desired program from a large schedule of programs whose data is stored in a local 
memory, comprising the steps of: 

displaying a vertically cascaded group of cards with each card representing a program of a particular time and 
channel; 

displaying a selection window located around a subgroup of said group of cards; 

displaying a two-dimensional grid adjacent to said vertically cascaded group of cards in which said subgroup 
of the programs represented by said vertically cascaded group of cards are shown in greater detail; 
displaying a first active area within said selection window highlighting one of said subgroup of programs; 
displaying a second active area within said two-dimensional grid, said second active area being located around 
and highlighting greater details of the program highlighted in said first active area; 

moving said first active area in a vertical direction in response to vertical direction arrows to a viewer's input 
of a remote control; and 

selecting a desired program by moving said active area to said desired program and actuating a select button 
until said set top box makes said selection. 

17. The method according to claim 16. further comprising the steps of 

after said active area is moved one location outside of said selection window by inputs from said viewer, 
moving said selection window to a contiguous subgroup to which said active area has moved. 

18. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 
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filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to the subgroup in the display means: 
5 group item selection means for selecting a group item by selecting the representation thereof in the display 

in response to the pointing means: and 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced repre- 
sentation of the portion of the group being presently displayed by the display means; 

said reduced representation displaying means displaying a two dimensional representation of a three dimen- 
10 sional representation, a third dimension being represented as a logical stack of items having at least one 

common property. 

1 9. The apparatus set forth in claim 8 or 1 8, wherein said interactive movable pointing means includes a remote control 
having: 

15 

a first pair of buttons to control changes in location in the display in a first direction: and 

a second pair of buttons to control changes in location in the display in a second direction: and 

a third pair of buttons to control changes in location within the logical stack. 
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FIG. 3 
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FIG. 5 
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